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SECTION  1 


INTRODUCTION  AND  OVERVIEW 


The  Natural  Background  Radiation  (NBR)  Module  is  defined  to  be  a 
computer  program  which  integrates  nine  ROSCOE-IR  models  (see  Table  1-1)  into  a 
consistent,  stand-alone  module  for  the  purpose  of  developing  and  testing  the 
capability  to  compute  the  natural  upwelling  spectral  radiance  as  a  function  of 
altitude.  The  relationships  of  the  routines  in  the  NBR  Module  should  be 
similar  to  the  relationships  of  the  routines  in  the  ROSCOE-IR  Program  except 
for  its  use  of  overlays  and  a  broader  use  of  the  GRC  Dynamic  Storage  Alloca¬ 
tion  (DSA)  System  [SP-78]. 

The  upwelling  radiance  will  normally  be  a  function  of  direction; 
however,  for  the  anticipated  applications  it  is  expected  that  a  spatially- 
averaged  value  will  be  adequate.  (If  later  studies  show  that  direction- 
dependent  values  are  required,  relatively  minor  code  changes  can  be  made  to 
retrieve  the  more  detailed  information  now  generated  to  derive  the  spatially- 
averaged  value. ) 


Computation  of  the  upwelling  radiance  may  be  described  with  the  aid 
of  Figure  1-1.  Point  V  is  at  altitude  z  above  a  selected  reference  origin. 


Table  1-1.  Models  Integrated  into  the  NBR  Module. 


Title 


Ambient  Atmosphere 
Atmospheric  Aerosols 
Natural  Clouds 

Atmospheric  Thermal  Emission 
Molecular  Transmittance 
Earth  Surface  Characterization 
Earth  Surface  Radiance 
Upwell ing  Natural  Radiation 
Solar  Radiation 


Model 

Number 

Devel oper 

ROSCOE  Manual 
Volume  Number 

la 

SAI/U 

U 

1 

Ic, 19:1c 

VI 

25 

ld,19:ld 

SAI/PA 

24 

20b 

GET 

28,31 

24d 

GET 

28,31 

23a 

SAI/LJ 

27, Sect. 2, 3 

23b 

SAI/LJ 

27, Sect. 5 

23c 

SAI/LJ 

27 .Sect. 6 

23e 

SAI/LJ 

27, Sect. 4 
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Figure  1—1 .  Geometry  to  illustrate  the  computation  of  up^»elllng  natural  radiation  for  one  viewing 
direction  VP. 

V.  For  a  (fictitious)  detector  at  Point  V  viewing  in  the  direction  of  Point 
P  on  the  ground,  the  processes  we  include  in  computing  the  radiance  in  the 
direction  of  PV  may  be  separated  into  two  cases; 

A.  No  Clouds 

1.  Air  emission  between  V  and  P,  attenuated  by  molecules  and 
aerosols. 

2.  Surface  emission  at  Point  P  (from  any  of  the  seven  modeled  sur¬ 
face  materials),  attenuated  by  molecules  and  aerosols  along  PV. 


3.  Surface-reflected  solar  radiation,  attenuated  by  molecules  and 
aerosols  along  the  total  path  (SP  +  PVl. 

B.  With  Clouds 

(Highest  cloud  tops  are  at  or  below  Point  C  at  12-km  altitude.  The 

first  three  processes  below  are  weighted  by  the  probability  the  line- 

of-sight  along  VC  intercepts  clouds.) 

1.  Air  emission  between  V  and  C,  attenuated  by  molecules  and 
aerosols. 

2.  Surface  emission  from  cloud  tops  at  or  below  12  km,  attenuated  by 
molecules  and  aerosols  along  CV. 

3.  Cl oud-refl ected  solar  radiation,  attenuated  by  molecules  and 
aerosols  along  the  total  path  (SC  +  CV). 

4.  Processes  1  and  2  from  the  no-cloud  case,  weighted  by  the  prob¬ 
ability  of  a  one-leg  cloud-free  1 ine-of-sight  along  VP. 

5.  Process  3  from  the  no-cloud  case,  weighted  by  the  probability  of 
a  two- leg  cloud- free  path  along  the  broken  path  (VP  +  PS). 

In  view  of  the  above-listed  contributions  to  the  radiance,  it  is  easy 
to  recognize  the  need  for  integrating  so  many  models  into  the  NBR  Module. 

Five  of  these  models,  as  indicated  in  Table  1-1,  have  been  reported  in  other 
volumes.  The  remaining  four  models  are  documented  in  this  volume.  To  this 
documentation  we  first  provide  an  overall  guide,  followed  by  more  detailed 
descriptions. 

The  Earth  Surface  Characterization  Model  is  described  in  Sections  2 
and  3.  Section  2  contains  general  information  and  details  for  non-water  sur¬ 
faces;  the  details  for  water  surfaces  are  given  in  Section  3.  The  Solar  Radia¬ 
tion  Model  is  described  in  Section  4  and  the  Earth  Surface  Radiance  Model  in 
Section  5.  In  terms  of  such  models,  the  Upwelling  Natural  Radiation  Model  is 
presented  in  Section  6  and  overall  coding  information  for  the  stand-alone  NBR 
Module  in  Section  7. 

In  Sections  2  and  3  we  present  the  ROSCOE-IR  model  (23a)  for  the 
Earth  surface  characterization,  in  the  spectral  range  from  2  to  5  um  (or  5,000 
to  2,000  cm  ").  The  principal  routine  in  the  model  is  Subroutine  ESURF  which 
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(with  auxiliary  routines  for  water  surfaces)  provides  the  (1)  monochromatic 
bidirectional  reflectance-distribution  function  (BRDF),  monochromatic  direc¬ 
tional  eniissivity,  and  (3)  temperature  of  the  Earth's  surface  at  the  inter¬ 
section  point  of  the  optical  line-of-sight.  Since  the  surface  category  is  not 
automatically  correlated  with  the  geographic  position,  the  user  must  select 
one  of  the  seven  categories  provided  plus  an  associated  descriptor  where  appro¬ 
priate;  (1)  Lambertian  surface  (and  diffuse  reflectance),  (2)  water  (and  wind 
speed),  (3)  snow  (and  its  age-parameter),  (4)  sand,  (5)  soil,  (6)  foliage,  and 
(7)  urban  material  (and  degree-of-urbanization  parameter).  The  user  calls 
Subroutine  ESURF  with  the  zenith  angle  of  the  solar  ray  at  the  intersection 
point,  the  direction  of  the  detector  at  the  intersection  point  (specified  by 
the  zenith  angle  and  the  azimuth  angle  relative  to  the  principal  plane  of  the 
solar  ray),  the  altitude  at  the  intersection  point,  the  surface  material  (and 
associated  descriptor)  at  the  intersection  point,  and  the  wavelength. 

The  BROF  for  each  of  the  surfaces  (except  water)  is  computed  from  an 
invented  analytic  expression  containing  spectral  and  directional  parameters 
which  have  been  fitted  to  the  (meager)  available  data,  presented  in  Section  2. 
Also  presented  are  derivations  of  directional-hemispherical  reflectance  from 
the  BRDF  and  the  directional  emissivity. 

For  a  water  surface.  Subroutine  ESURF  calls  Subroutine  GLITTR  to 
obtain  the  BRDF  and  directional  emissivity.  Subroutine  GLITTR,  its  auxiliary 
routines,  and  the  underlying  model  for  the  glitter  from  a  wind- ruffled  water 
surface  are  described  in  Section  3.  The  model  is  based  largely  on  the  work  of 
Cox  and  Hunk  [CM-54],  including  (1)  the  basic  equation  relating  the  glitter 
radiance  to  the  wave-facet  slope-probability  distribution,  (2)  a  two-dimen¬ 
sional  isotropic  normal  distribution  for  the  slope-probability  distribution, 
and  (3)  a  linear  relation  between  the  slope  variance  and  the  wind  speed. 
Modifications  and  extensions  of  the  Cox-Hunk  work  include  (1)  using  the 
Levanon-derived  [Le-71b]  equations  for  the  slope  and  angle  of  incidence  re¬ 
quired  at  a  viewed  point  to  provide  a  glint,  in  terms  of  the  position  of  an 
arbitrary-altitude  detector  viewing  a  spherical  Earth,  instead  of  the  equa¬ 
tions  for  a  flat  Earth  as  (appropriately)  used  by  Cox  and  Hunk,  (2)  evaluating 
the  Fresnel  equations  for  the  specular  reflectance  in  temis  of  the  complex 
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index  of  refraction  of  water  for  the  2-  to  5-uni  region,  instead  of  the  visible 
region,  (3)  incorporating  a  shadowing  factor  (based  on  the  work  of  Saunders 
[Sa-67,  Sa-67a,  Sa-68c]  but  extended  to  permit  a  "bistatic"  dependence  on  the 
zenith  angles  of  both  the  incoming  and  outgoing  rays)  which  multiplies  the 
slope  probability  distribution  and  takes  account  of  shadowing  of  some  slopes 
by  others  for  illuminating  and  viewing  near  the  horizon,  and  (4)  providing  a 
solution  (by  iteration)  for  the  location  of  the  specular  reflectance  point  on 
a  spherical -Earth  water  surface  that  is  smooth  for  zero  wind  speed.  The  direc¬ 
tional  emissivity  of  the  wind-ruffled  water  surface  is  approximated  by  that 
for  a  smooth  water  surface  ovring  to  the  complex  geometry  which  prevents  analy¬ 
tically  integrating  the  BRDF  over  a  hemisphere. 

In  Section  4  we  present  the  ROSCOE-IH  model  (23e)  for  the  solar  spec¬ 
tral  irradiance  at  the  top  of  the  atmosphere,  in  the  spectral  range  from  2  to 
5  urn.  The  input  data  to  the  model ,  taken  to  be  the  NASA  data  adopted  by  the 
-American  Society  of  Testing  and  Materials,  have  been  fitted  by  piecewise- 
continuous  power-law  expressions.  The  model  may  be  called  with  either  wave¬ 
length  (urn)  or  wavenumber  (cm'M  and  an  index  which  selects  the  output  spec¬ 
tral  irradiance  in  any  of  four  forms.  Therein  are  presented  derivations  and  a 
flow  0  gram  of  Subroutine  SOLRAD. 

In  Section  5  we  present  the  ROSCOE-IR  model  (Z3b)  for  the  Earth  su» - 
face  radiance.  The  model  provides  two  components  of  the  radiance  directed 
along  the  path  PV  in  Figure  1-1:  (1)  thermal  radiation  emitted  at  Point  P  and 

(2)  solar  radiation  reflected  at  Point  P.  Strictly,  the  surface-reflected 
solar  radiation  is  actually  provided  in  an  unattenuated  form  with  the  path 
parameters  required  as  part  of  the  input  to  a  later  computation  of  the  molecu¬ 
lar  absorption  over  the  total  two-leg  path  (SP  +  PV).  The  aerosol  transmit¬ 
tance  along  the  incoming  path  SP  is  also  provided.  The  principal  routine  in 
the  model.  Subroutine  5URRAD,  and  its  auxiliary  geometry  routine  (Subroutine 
RINOUT)  are  described,  including  derivations  of  the  zenith  angle  of  the  sun 
(?gl,  zenith  angle  of  the  detector  and  azimuth  angle  of  the  solar  ray 

reflected  toward  the  detector  (’;>).  We  also  provide  detailed  summaries  of  the 
inputs  and  outputs  for  the  routines  developed  by  other  organizations  (G.E. 

Tempo  and  Visidyne,  Inc.)  which  we  use  to  complete  the  model. 
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Subroutine  SURRAO  also  provides  for  natural  clouds  if  they  are  in¬ 
cluded  in  the  calculation.  While  clouds  are  not  strictly  an  Earth-surface 
feature,  the  treatment  of  the  two  components  of  the  radiance  along  the  path  CV 
in  Figure  1-1,  resulting  from  cloud  tops  (the  highest  of  which  is  12  km  in  the 
Natural  Cloud  Model  and  shown  as  Point  C  in  Figure  1-1),  is  analogous  to  that 
for  Point  P  and  thus  is  appropriately  included. 

The  ROSCOE-IR  model  (23el  for  the  upwelling  natural  radiation  is 
presented  in  Section  6.  This  model  evaluates  the  mean  upwelling  spectral 
radiance  at  Point  V  (in  Figure  1-1)  by  averaging  the  radiance  over  the  solid 
angle  (fty)  defined  by  the  cone  with  vertex  at  Point  V  and  tangent  to  the 
Earth's  surface.  In  practice,  we  average  the  set  of  radiances  received  at 
Point  V  by  viewing  (in  the  absence  of  clouds)  a  set  characteristic  Point's  P 
on  the  Earth's  surface  and  within  The  Points  P  are  selected  in  terms  of  a 
set  of  angles  (B)  measured  from  the  nadir  and  a  set  of  azimuth  angles  (♦)  for 
each  nadir  angle.  The  results  from  the  Earth  Surface  Radiance  Model  for  each 
Point  P  are  augmented  by  computing  (1)  the  air  emission  along  the  p^th  PV.  (2) 
the  molecular  path  parameters  along  (3)  the  total  path  parameters  along 
+  PV)  by  adding  those  for  SP  and  PV,  (4)  the  molecular  transmittance  for 
the  path  PV  and  for  the  total  path  (S?  +  i^),  and  (5)  the  aerosol  transmit¬ 
tance  for  the  path  PV  and  the  total  path  (SP  +  PV). 

The  inclusion  of  the  statistical  submodel  of  the  Natural  Cloud  Model 
complicates  the  modeling.  Now,  for  each  Point  C  there  is  a  distribution  of 
radiance  values  corresponding  to  the  159  sets  of  three-layer  cloud  configura¬ 
tions.  Details  are  given  in  Section  6. 

The  principal  routine  in  the  Upwelling  Natural  Radiation  Model  is 
Subroutine  UPWELL;  it  is  lengthly,  with  20  pages  cf  FORTRAN.  In  Section  6  we 
present  formulas  for  the  geometry  involved,  the  radiance  computed,  a  detailed 
sunmary  of  the  calcul ational  steps,  and  a  detailed  sunmary  of  the  input  and 
output  variables. 

In  Section  6  we  also  provide  detailed  summaries  of  the  input  ard 
output  variables  for  all  the  auxiliary  routines  which  are  called  by  Subroutine 
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UPWELL  but  which  are  not  so  documented  elsewhere.  These  routines  include  a 
number  prepared  by  SAI  and  three  important  ones  (Subroutines  TRNSCO,  ATMRAD, 
and  TRANS)  prepared  by  G.E.  Tempo, 

In  Section  7  we  provide  general  coding  information  for  the  NBR 
Module,  including  that  required  for  the  stand-alone  version.  We  identify  all 
of  the  (66  non-OSA)  routines  in  the  NBR  Module  and  provide  a  chart  showing 
their  calling-structure  relationships.  For  each  of  these  routines  we  also 
state  (1)  the  function  it  performs,  (2)  its  originator,  (3)  the  location  of  a 
listing  of  the  routine,  and  (for  27  routines)  (4)  the  niimber  of  the  table  in 
this  volume  which  states  in  detail  the  inputs  and  outputs  of  the  routine.  For 
conmon  blocks  we  provide  (1)  a  matrix  showing  routines  and  the  35  common 
blocks  appearing  in  them  and  (2)  either  definitions  of  all  the  variables  in 
the  conmon  block  and  where  the  vari abler  are  set  or  a  specific  reference  where 
the  definitions  are  given. 

The  NBR  Module  in  its  stand-alone  version  is  driven  by  Program  DRVUPW 
(11  pages  of  FORTRAN).  For  this  program  we  describe  in  Section  7  the  calcula- 
tional  steps  required  in  both  the  initialization  and  operation  phases.  During 
the  initialization,  calls  are  made  to  QINITL  (for  the  OSA  routines),  ATMOSU 
(for  the  ambient  atmosphere  depending  on  time  and  location),  CLOUDO  (for  cloud 
properties),  TRANSB  (for  molecular  band-model  parameters  for  transmittance), 
and  SHELLS  (for  atmospheric  grid).  During  operation,  calls  are  made  to  SETALT 
(to  determine  the  altitudes  (depending  on  wavelengths  of  interest)  at  which 
Subroutine  UPWELL  is  to  compute  the  upwelling  natural  background  radiation) 
and  UPWELL.  Our  development  of  Subroutine  SETALT  is  described.  Sunmaries  of 
input  and  output  variables  are  provided  for  Subroutine  SETALT  and  the  G.E. 
Tempo  routines  TRANSB  and  SHELLS. 

Finally,  in  Section  7,  we  provide  some  comments  on  the  integration  of 
the  NBR  Module  into  R05C0E-IR,  including  some  of  the  differences  between  the 
stand-alone  version  and  that  in  ROSCOE-IR.  In  particular,  we  summarize  the 
inputs  and  outputs  of  Subroutine  UPWELT,  prepared  by  GRC,  to  select  the  appro¬ 
priate  wavenumber  interval  and  to  interpolate  in  altitude  the  upwelling 
natural  radiation  array. 
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In  Section  B  we  provide  a  listing  of  those  (37)  routines  in  the  NBR 
Module  which  are  not  listed  elsewhere  (at  least  not  as  we  are  using  them). 
These  include  19  SAI  routines,  17  G.E.  Tempo  routines,  and  1  Visidyne,  Inc. 
routine. 
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SECTION  2 


EARTH  SURFACE  CHARACTERIZATION:  GENERAL  AND  NON-WATER  SURFACES 


2-1  INTRODUCTION  AND  SUHiRARY 


2-1.1  Requirements  for  the  Model 

The  r.haracterization  of  the  Earth's  surface  is  required  for  input  to 
the  Earth  Surface  Radiance  Model  (23b)  and  the  Upixelling  Natural  Radiation 
Model  (23c)  via  Model  23b.  For  the  Earth  Surface  Radiance  Model,  Model  23a  is 
required  to  provide  the  reflectance,  etpittance,  and  temperature  of  the  Earth's 
surface  at  the  point  (P)  where  the  optical  line-cf-sight  intersects  the 
Earth's  surface,  including  directional  effects  as  necessary.  For  the  Upwel- 
ling  Natural  Radiation  Model,  Model  23a  is  required  to  provide  the  average 
characteristics  (i.e.,  reflectance,  emittance,  and  tempera+ure)  of  that  por¬ 
tion  of  the  Earth's  surface  that  could  be  viewed  from  an  altitude  of  interest. 

2-1.2  Approach 

The  reflectance  and  emittance  properties  of  the  Earth's  surface  are 
controlled  mainly  by  composition  and  to  a  lesser  extent  by  surface  roughness. 
Since  the  composition  and  roughness  of  the  Earth's  surface  can  vary  markedly 
from  point  to  point,  so  can  its  optical  properties.  A  useful  sunmary  of  the 
reflectance  data  for  the  Earth's  surface  features  was  prepared  by  Bartman  in 
his  thesis  [Ba-67b];  this  sunmary  has  been  reproduced  by  Kondratyev  [Ko-72d] 
and  is  shown  here  as  Table  2-1.  This  table  is  of  general  interest  for  us  even 
though  Bartman  and  Kondratyev  were  mainly  interested  in  the  Earth's  total 
albedo  for  solar  radiation  and  hence  emphasized  the  visible  spectral  region. 

It  has  been  agreed  to  represent  the  Earth's  surface  in  a  relatively 
simple  way,  yet  one  which  provides  a  range  of  reflectance,  emittance,  and 
temperature  values,  the  general  procedure  is  to  provide  for  six  cate(,ories  of 
the  Earth's  surface:  water,  snow,  sand,  soil,  foliage,  and  urban  material. 
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Table  2'1.  Sumtiary  of  reflectance  data  for  the  Earth's  surface  features. 

(Reproduced  from  Ko-72d;  originally  prepared  by  Bartman  [Ba-67b].) 


ch,jrui'iettsnci 

Jiiinhution  .»/ 

rt-'-fr,  .'.j/’icf 

'  Scjils  jnd  rocks 
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scattering 
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3.  Loans  haa  ^matl  rorvard 
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t  5--:5% 
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;  A.  Sharp  ifKreue  at  0."  micron  • 
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1 .  Backscattering 

2-  Small  tor'wjru  scattering 
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rteciance  -or  -wmall  arcii.'s 

,  5.  Marke.j  annual  -ariaijon 

■  Wdtcr 

i  1.  Mxximum  4t  0  5-«)  ~  micron 

2.  Depends  on  lurbtduy  and 
'liases 

1 

! 

1 .  Large  back  and  forward 
iw:aitenng 

1 .  Small  reffectance 

2.  Diurnal  vanaiton  maximum 
for  small  suft  angles 

2*.  Depends  on  urbidnv  and 
wa'.es 

■  Snosk  jnj  (^:e 

1 
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increasing  ♦axe  lengtn 
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1.  Diffuse  ccmponeni  plus 
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With  increasing  angle  ot  in¬ 
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;  J  Varublc. 

2  ***»  m  Aniurcuc 
;  3  Ross  Scj  fcc 

a  '/hue  Sea 

For  each  category  the  reflectance  and  anittance  have  been  chosen  to  be  repre¬ 
sentative  of  the  average  value  for  that  category.  The  chosen  values  are  based 
on  those  we  have  been  able  to  find  in  the  literature  so  far;  one  should  re¬ 
main  alert  to  possibly  finding  improved  values.  There  is  no  autcxnatic  correla 
tion  between  geographic  position  and  surface  category.  However,  the  user 
could,  in  principle,  place  different  surfaces  as  he  desires  in  a  given  scene 
when  he  wants  to  address  surface  boundary  problems,  but  the  necessary  coding 
has  not  been  implemented.  For  test  and  possibly  other  purposes,  we  also  pro¬ 
vide  for  a  Lambertian  surface  with  a  user-defined  value  of  the  diffuse  reflec¬ 
tance  . 

A  review  of  the  literature  has  convinced  the  writer  that  m'st  materi¬ 
als  have  a  strong  non-diffuse  character.  To  take  account  of  the  non-diffuse- 
ness,  we  postulate  a  general  expression  for  the  bidirectional  reflectance- 
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distribution  function  (frequently  referred  to  as  dXDFl  with  several  parameters 
that  are  evaluated  on  the  basis  of  whatever  esperic’iental  data  are  available. 
(The  reader  unfamiliar  with  the  quantity  we  call  the  BRDF  -  which  has  many 
aliases,  including  partial  reflectance  or  reflectance-distribution  function  - 
may  want  to  refer  to  the  discussions  by  Wolfe  [Wo-65a,  pp.  23-28]  or  by  Hico- 
demus  [Ni-65c,  >ii-70d,  >ii-76].l 

Having  determined  the  BRDF  for  a  material,  one  can  then  integrate  the 
BRDF  over  a  hemisphere  to  obtain  the  directional-hemispherical  reflectance 
(which  is  equal  to  the  hemispherical-directional  reflectance!  and  thus  obtain 
the  directional  emissivity  for  the  material  by  applying  Kirchhoff's  law  [Ni- 
70dl. 


2-1.3  The  Bidirectional  Reflectance-Distribution  Function  (3RDF! 

We  follow  the  recommendation  of  Hicodemus  [Hi-70d]  and  use  the  symbol 
to  represent  the  3R0F ,  which  has  the  units  of  sr'^.  The  general  form  we  pro¬ 
pose  for  the  BRDF  is 

r-  '  ' 

5  0(m),  v]  ,  m  >  2 

=  =om<'’  exp{.aJ(cos  6.)  *  (cos  5,,) 

+  S^(l-il-2./*l  1]}^,  sr‘^  (1) 


where 


y.)  =  R^(0)  -  [RJ'JI  -  . 


For  the  Lambertian  surface  (m=l),  the  BRDF  is  a  constant,  given  by 


r  ol 


d'  1 
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wi  th 


R^(0)  =  =  0 


(2') 


In  Equation 
m 

0(m)  - 


X 

E  • 
\ 


i' 


(l),  the  symbols  have  the  following  neanings. 

Index  for  category  of  surface  material. 

Additional  descriptor  available  for  the  mth  material,  if  needed. 
For  brevity,  we  will  frequently  suppress  0{nil  as  an  explicit 
argument. 

Wavelength  (uin). 

Zenith  angle  of  sun  at  intersection  point  (R). 

Zenith  angle  of  detector  at  intersection  point  (P). 

Azimuth  angle  (at  intersection  point  (?))  of  vertical  plane 
through  1 ine-of-sight,  measured  relative  to  the  solar  principal 
plane  (i.e.,  vertical  plane  through  the  source  ray).  Values  of 
zero  and  »  for  i  correspond  to  forward  and  backward  scattering, 
respectively. 


There  are  six  parameters  -  ^ro*  ''n  ‘ 

characterizing  a  material,  according  to  our  Equation  (1).  Note  that  all  of 
the  spectral  dependence  of  the  reflectance  is  contained  in  the  parameter 

which  has  no  directional  dependence;  i.e.,  we  assume  that  the  spectral 
and  directional  properties  are  separable.  The  parameters  snd 

together  with  and  control  the  forward  and  backward  reflection  in  the 
principal  plane;  the  parameter  controls  the  scattering  away  from  the  princi¬ 
pal  plane. 


In  addition  to  the  separability  of  the  spectral  and  directional  pro¬ 
perties,  our  expression  for  the  BRDF  has  two  other  important  properties.  The 
more  important  of  these  is  that  Equation  (1)  satisfies  the  nelmholtz  reciproc¬ 
ity  theorem  [Ni-65c]  according  to  which  f^  must  be  invariant  to  an  interchange 
of  the  incident  and  reflected  rays.  The  thiro  principal  prope^'ty  of  Equation 
(1)  is  that  f^  is  integrable  over  a  henisphere  provided  equals  1  or  2. 
Whereas  we  have  imposed  this  restriction  in  the  dete'mii nation  of  the  other 
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parameters,  we  recognize  in  retrospect  that  this  requirement  could  probably  be 
relaxed  for  practical  applications  in  which  the  quality  of  the  fits  to  experi¬ 
mental  data  might  be  improved  if  had  other  values.  We  do  not  claim  unique¬ 
ness  fo'‘  Equation  (1),  but  it  is  the  only  expression  of  its  kind  of  which  we 
are  aware.  Further  thought  -  with  more  trials  and  errors  -  may  lead  to  a 
becter  expression. 


Finally,  we  mention  an  odd  property  of  our  BRDF  which  is  not  of  much 
practical  consequence  but  which  may  be  a  small  wonderment.  This  property  iS 
that,  for  9^  =  0^  =  0  (i.e.,  normal  incidence  and  reflection),  f^.  as  given  by 
Equation  (1)  is  multivalued  in  that  it  depends  on  the  value  of  n*.  Of  course, 
physically  we  expect  a  single  value.  Our  practical  solution  to  this  problem, 
for  e.  =6^-0,  is  simply  to  define  f^  to  be  the  value  obtained  by  averaging 
f^(O,0,''k)  I'ver  iti,  i.e., 


r'e.  =  6^  =  0  - 


<yo.o,»)>  . 


(3) 


From  the  integrations  nresen.ted  in  Section  2-4  we  show  that 


13a) 


where 

1 

Pj(a)  =  ^ dxe  ^  il-e  • 

o 

2-1.4  The  Di rectional -Hemispherical  Reflectance 

The  spectral ,  directional-hemispherical  reflectance,  denoted  here  by 
p^(x;0  .,2ii ) ,  is  defined  [Ni-65c,  Wo-65a]  by  the  integral 


(4a) 

(4b) 
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V 


(5) 


p^{x;e..2,)  = 


cos  dn. 


where 


dn  =  sin  de  . 

r  r  r  r 


(5a) 


In  Section  2-4  we  show  that  the  result  of  the  integration,  when  Equation  (1) 
is  used  for  f^,  is 


(6) 


with 


'm  'm 


1 


P2i(a)  = 


/ 


dxxe"®’^  =  -I  [1  -  e’^(a+l)] 
a^ 


222^3)  = 


/ 


.  -ax  1  ,,  -ax 
dxxe  "  ^  ^  ®  ' 


(7) 

(8) 


(9) 


y 

F  (a, 9)  =  exp[-a(cos  «)  (10) 

For  a  Lambertian  surface  (m=l), 

0  j^(  X ;  0  ^  ,2ti  )  =  TiOp^tx)  .  (6') 

If  the  spectral  dirprtional-hpmispherical  reflectance.  d_(  X ;  9  .  ,2it  ) , 

*  HI  I 

for  a  material  is  known  from  experiment  for  at  least  one  value  of  e^-  and  if 
the  five  directional  parameters  known,  then 
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our  spectral  parameter  Oq^(x)  in  Equation  (1)  can  be  determined  from  Equation 
(6)  evaluated  at  the  given  e^.  In  practice,  the  directional-hemispherical 
reflectance  is  frequently  measured  for  a  direction  at  or  near  normal  inci¬ 
dence.  In  this  case,  for  at  least  the  materials  we  have  examined,  the  quan- 
tity  -=0)  -  which  is  a  measure  of  the  departure  of  the  BRDF  from  a 

constant,  as  it  would  be  for  a  diffuse  reflector  -  differs  from  unity  by  only 
a  few  percent  (9.5%  in  one  case).  Thus,  in  practice,  it  would  be  a  good  ap¬ 
proximation  to  simply  evaluate  by  the  relation 

Pm(x;ei=0,2,)  ;  (11) 

however,  for  self-consistency,  to  get  we  have  used  Equation  (6)  evalu¬ 

ated  at  9.=0  with  0^(i;a .=0,2*)  given  by  (meager)  experimental  data,  i.e.,  we 
have  used 


0  (^;9i=0,2ir) 


2-1.5  The  Directional  Emissivity 


(6-') 


The  directional  emissivity,  for  material  m,  at  a  zenith  angle  0, 
is  [Ni-65c,  Ni-70d] 


r  ■  - - 

j  ^  Ej(m,x,e)  =  l-p^(x;0,2ii) 


(12) 


where  the  directional-hemispherical  reflectance  P|^^( x ; 0 ,2ii )  is  given  by  Equa¬ 
tion  (5)  in  general  and  by  Equation  (6)  when  our  f^  (Equation  (1))  is  used  in 
Equation  (5).  For  a  Lambertian  surface  (m=l). 


£jj(l,x,0)  =  l-p^(x;9 ,2n)  =  I-xOq^(x) 


(12') 


For  urban  mit.rial  (m=7),  see  Section  2-3. 5. 2  for  the  special  form  appropriate 
tor  urban  geavet.-y. 
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2-1.6  Summary  of  Parameters  for  the  8R0F 


A  perusal  of  the  literature,  including  the  putative  extensive  UASA 
data  base  [L£-71a,  L£-72c],  has  so  far  revealed  very  few  photometric  data  of 
the  type  desired,  i.e.,  bidirectional  spectral  reflectance  data  in  the  2-  to  5- 
um  region.  The  data  available  typically  are  broad-band  and  usually  include 
the  visible  region.  Bidirectionality  is  usually  lost  in  that  the  data  are 
usually  for  hemispherical-directional  or  hemispherical-hemispherical  condi¬ 
tions.  Where  there  are  spectral  data  of  interest,  the  directional  data  are 
lacking;  similarly,  where  there  are  directional  data,  the  spectral  region  or 
resolution  is  wrong.  Where  the  data  are  taken  under  field  conditions,  not 
only  the  sun  but  the  sky  radiance  is  mixed  in. 

Despite  these  difficulties,  however,  we  have  boldly  arrived  at  the 
values  for  the  parameters,  recorded  in  Tables  2 -2a  and  2-3.  The  details  of 
the  derivation  of  these  parameters  are  given  in  Sections  2-2  and  2-3. 

In  Table  2-2b,  we  present  the  azimuthal  dependence  of  f^  for 
=  0,  as  well  as  <f^(0,0,iil>. 

2-1.7  Surface  Temperature 

The  remaining  required  specification,  surface  temperature,  may  be 
chosen  to  be  equal  to  the  ambient  air  temperature  at  the  Earth's  surface. 

This  assumption  is  reasonably  correct  for  all  cases  at  night,  and  for  water, 
snow,  and  foliaged  surfaces  during  the  day.  This  assumption  leads  to  signifi¬ 
cantly  low  surface  temperatures  for  other  surfaces  (barren  soil,  sand,  and 
urban  materials)  during  periods  of  solar  illumination.  However,  because  of 
the  complexity  of  modeling  this  phenomenon,  and  the  fact  that  the  natural 
Earth  surface  radiance  is  only  a  baseline  for  nuclear  effects,  use  of  the 
ambient  air  temperature  as  the  surface  temperature  is  currently  recommended; 
however,  consideration  should  be  given  later  (if  resources  permit)  to  devel¬ 
oping  a  better  prescription  for  the  surface  temperature. 
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Table  2'2a.  Spectral  and  directional  parameters  for  characterization 


of 

the  BRDF 

for 

Earth  surface  materials.* 

Spe 

ctral 

Directional 

Material 
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0(m) 

(  X  1  n 

If¬ 

- -  — , - 

om 

m 

ni  'm 

m  m 

m 

Lambertian 

1 

a 

D{l)/n  - 

0  0 
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Water 

2 
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- 

- 

- 

- 

Snow 
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c 

9 

3 

0.9  1 

13  3 

8 

Sand 

4 

d 

h 

3 

0.5  1 

2.5  4 

3.25 

Soil 

5 

d 

i 

2.5 

0.5  2 

1  4 

2.5 

Vegetation 

6 

d 

j 

2.5 

0.5  2 

1  10 

5.5 

Urban  Materials 

7 

e 

k 

4 

0.5  2 

10.5  1 

5,75 

directional 

( continued) 

Material 

m 

>■2, 

;0) 

m 

’m 

Lambertian 

1 

. 

1.00 

Water 

2 

- 

- 

- 

- 

Snow 

3 

.345 

.0890 

.0498 

1.024 

Sand 

4 

.51« 

.0890 

.0498 

1.015 

Soil 

5 

.571 

.184 

.0821 

1.043 

Vegetation 

6 

.571 

.184 

.0821 

1.095 

Urban  Materials 

7 

,432 

.123 

.0183 

1.011 

^Footnotes  are  on 

the 

following  page. 
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Footnotes  for  Table  2-2a. 


0(1)  is  the  diffuse  reflectance  (oi  =  for  a  Lambertian  surface.  A 

typical  value  is  0.1.  ^ 

^  0(2)  is  the  wind  speed,  0  <  0(2),  m/sec. 

Q 

0(3)  is  the  snow-age  parameter,  0  ^0(3)  <  1.  Values  of  zero  and  one  corre¬ 
spond  to  new  and  old  snow,  respectively. 

Not  used. 

0(7)  is  the  degree-of-urbanization  factor,  0  10(7)  11.  ^  value  of  zero 

for  0(7)  provides  a  spectral-dependent  BftOF  corresponding  to  a  flat  surface 
with  directional  reflectance  properties  equal  to  the  average  for  concrete 
and  asphalt.  A  value  of  one  for  0(7)  provides  a  spectral-dependent  BROF 
corresponding  to  a  diffuse  reflector  but  modified  by  a  shadow  factor 
S(9^,6^)  =  (cos  9.  +  cos  9^)/2. 

'  See  Section  3  for  treatment  of  water, 

^  Evaluated  from  Equation  (6’’)  with  given  in  Table  2-3  by  a  formula  with 
dependence  on  the  snow- age  parameter,  0(3). 

^  Evaluated  from  Equation  (6")  with  p.,  given  in  Table  2-3,  being  the  average 

value  for  natural  gypsum  sand  [Ho-66,  Figure  10]  and  Russian  sand  [Kropotkin 

(1964)  per  Ba-67b,  Figure  82]. 

^  Evaluated  from  Equation  (6")  with  given  in  Table  2-3,  being  the  average 
value  for  topsoil  CRH-73,  p.  15-20],  Pawnee  Grassland  soil  [Ho-66,  Figure 
9],  and  Russian  soil  [Kropotkin  (1964)  per  Ba-67b,  Figure  82]. 

^  Evaluated  from  Equation  (6")  with  o^,  given  in  Table  2-3,  based  on  data 

provided  by  D.C.  Anding,  said  to  be  an  average  of  many  values  in  LE-71a  for 

2.0  £  (urn)  <  2.5  and  estimated  for  2.5  <x(um)  ^  5. 

k 

Evaluated  from  Equation  (6‘')  with  p^,  given  in  Table  2-3,  being  the  average 
value  for  Russian  asphalt,  asphal tic  material  [Wo-65a,  Figure  4-23],  Russian 
(red)  brick,  and  Russian  concrete.  Russian  data  are  given  by  Kropotkin 
(1964)  per  Ba-67b,  Figure  82. 


Table  2-2b.  <f^(0,0,ii)>  and  azimuthal  dependence  of  f^(0,0,ii). 


m 

Do'^f^(0,0.0) 

Oo*^f^(0.0.,/2) 

3 

1.032 

1.0013 

1.0074 

1.0068 

4 

1.0062 

1.0018 

1.0099 

1.0042 

5 

1.0067 

1.0048 

1.027 

1.0095 

6 

1.0067 

1.011 

1.067 

1.021 

7 

1.0035 

1.00026 

1.00034 

1.00083 

Table  2 

-3.  Normal -incidence — 
surface  materials. 

hemispherical 

reflectance  for 

Earth 

Snow 

"3  = 

Soil 

[0.44  -  0.12 

{x-2)]  [l-(5/12)  D(3)] 

Sand 

X  ,uni 

“5 

X  ,um 

<>5 

X  ,um 

®4 

X ,  um 

'=4 

2.00 

0.262 

3.15 

0.067 

2.00 

0.205 

2.95 

0.040 

2.08 

.272 

3.50 

.112 

2.05 

.238 

3.20 

.070 

2.25 

.257 

3.70 

.158 

2.18 

.209 

3.30 

.093 

2.50 

.227 

3.82 

.177 

2.30 

.206 

3.60 

.145 

2.62 

.198 

4.10 

.195 

2.45 

.177 

3.75 

.162 

2,70 

.095 

4.60 

.158 

2.50 

.174 

3.90 

,152 

2.77 

.067 

4.77 

.142 

2.63 

.148 

4.35 

.076 

2.92 

0.061 

5.00 

0.113 

2.73 

.114 

4.90 

.031 

2.88 

0.080 

5.00 

0.035 

Vegetation 


X  ,um 

% 

X  j 

^6 

2.00 

0.129 

3.16 

0.033 

2.20 

.212 

3.22 

.033 

2.64 

.059 

3.42 

.074 

2.78 

.059 

3.58 

.074 

2.96 

.120 

3.95 

.037 

3.03 

0.120 

5.00 

0.021 

(continu 
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Table  2-3.  Normal -incidence--heini spherical  reflectance  for  Earth 
surface  materials^  (Cont'd). 


Urban  Materials 

X  , 

‘>7 

X  ,pm 

‘>7 

X  ,pm 

“1 

2.00 

0.347 

2.70 

0.272 

4.00 

0.231 

2,12 

.348 

2.85 

.145 

4.10 

,238 

2.24 

.326 

2.89 

.118 

4.26 

,240 

2.26 

.278 

3.00 

.090 

4.42 

.254 

2.36 

.272 

3.10 

.091 

4.70 

.246 

2.47 

.295 

3.24 

.100 

4.83 

.229 

2.55 

.299 

3.62 

.149 

5.00 

0,215 

2.63 

0.296 

3.89 

0,193 

'’in  this  table,  for 

brevity,  we 

use  the  no 

tation  p  = 

4,0,2 

n)  for  the 

spectral ,  normal-incidence--hemispherical 

reflectance 

2-2  EVALUATION  OF  SPECTRAL  DATA  FOR  THE  BRUF 

2-2.1  Snow 

For  snow,  we  have  found  very  limited  spectral  reflectance  data  in  the 
2-  to  S-uin  region,  although  there  are  considerable  spectral  data  in  the  visi¬ 
ble  region  tKo-73a,  pp.  227-229,  231]  and  albedo  data  [Ko-72d].  Kondratyev 
[Ko-73a,  p.234.  Figure  4.12]  reports  spectral  reflectance  data  for  old  snow 
for  2.5  pm  and  for  fresh  snow  for  x  <  2.2  pm;  these  values  are  much  smaller 
than  those  we  have  adopted,  taken  from  graphs  given  by  Rose  et  al .  [RA-73, 
Figures  37b,  37c]  (or  '(47-78,  Figure  3-19)  and  attributed  to  Russian  literature 
which  we  have  not  yet  acquired  for  verification.  The  data  from  RA-73,  which 
are  limited  to  i  ^  4.u  urn,  are  replotted  in  Figure  2-1  where  they  are  extrapo¬ 
lated  to  5  pm.  By  using  the  slopes  of  the  curves  in  the  3-  to  4-pm  region,  we 
have  very  well  fitted  the  two  curves  by  the  single  equation 

=  [0.44  -  0.12  (a  -  2)]  ri.(5/12)  0(3)] 


(13) 


Figure  2—1 .  Spectral  diffuse  reflectance  of  winter  snow  and  ice  and  summer  ice 
(2  to  5  /um). 

in  which  we  have  introduced  the  snow-age  parametei’  D(3)  to  which  we  assign  the 
value  of  zero  for  winter  snow  and  ice  and  the  value  of  unit>  for  sunnier  ice. 
Intermediate  curves  can  be  interpolated  by  using  intennediate  values  of  j(3), 

0  <  0(3)  <  l.O. 

2-2.2  Sand 

Hemispherical'-nonnal-directional  spectral  reflectance  data  in  the 
range  0.5<i(uni)  £6  are  given  by  Hovis  [Ho-6bj  for  pure  silica  sand,  beach 
sands  (from  New  Jersey  and  Florida)  which  are  largely  silica,  and  gypsum  sand, 
coimon  in  much  of  the  soil  of  the  western  United  States,  particularly  in  the 
sand  of  the  White  Sands  National  Monument  in  New  Mexico.  For  gypsum  sand, 
riovis  L'rio-66]  s'nOws  I'eflectance  data  for  saiaples  of  both  its  natural  state  and 


partially  dehydrated  state.  Spectral  data  for  (Russian)  sand,  not  otherwise 
Identified,  are  given  by  Kropotkin  [(1964),  per  Ba-67b,  Figure  82].  The  data 
from  Kropotkin  are  reproduced  as  Figure  2-2.  The  results  of  digitizing  the 
Hovis  curve  [Ho-66,  Figure  10]  for  the  natural-state  gypsum  sand  and  those 
for  the  Russian  sand  are  given  in  Table  2-4;  these  data  are  plotted  in  Figure 
2-3.  The  results  of  averaging  the  digitized  data  for  the  natural  gypsum  sand 
and  the  Russian  sand  are  given  in  Table  2-3  and  plotted  as  the  dashed  curve  in 
Figure  2-3. 


\ 

A I  ^ ) 


Figure  2—2.  Spectral  reflectance  for  (1)  sand,  (2)  soil,  (3)  asphalt,  (4)  brick,  and  (5)  concrete 
(after  Kropotkin  et  al.,  per  0a— 67b,  Figure  82). 
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Table  2-4.  Spectral  reflectance  of 

sdnd  f  0^  > 

Natural  (lypsum  Sand  ^ 

Russian  Sand 

t  ,uro 

“4 

i.uir. 

2.00 

0.07 

2.00 

0.34 

2.05 

.14 

2.25 

.325 

2.18 

.09 

2.50 

.30 

2.30 

.095 

2.65 

._’5 

2.45 

.05 

2.78 

.20 

2.63 

.04 

2.88 

.15 

2.73 

.01 

2.95 

.06 

2.87 

.01 

3.10 

.10 

2.95 

.02 

3.30 

.  15 

3.20 

.015 

3.60 

.20 

3.75 

.12 

3.90 

.21 

4.35 

.015 

4.00 

.20 

4.80 

.015 

4.90 

.04 

5.00 

0.03 

5.00 

0.04 

^ovis  [Ho- 

■66,  Figure  10). 

\ropotkin  (1964) 

[Ba-67b,  Figure  82]. 

Figure  2—3.  Spectral  reflectance  for  satvf.  >>4.  Dashed  curve  is  average  of  (A)  natural 

gypsum  sand  iHovis,  Ho— G6,  Figure  10)  and  fB)  Russian  sand  (Kropotkin 
(1964)  per  Bartman  )Ba-67b,  Figure  82] ). 
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2-2.3 


Soil 


Hovis  i.Ho-66,  Figure  9]  presents  ttie  hemispherical --nonual-airec- 
tional  reflectance  of  soil  from  the  Pawnee  Grassland  area  in  Colorado.  The 
results  of  digitizing  the  Hovis  curve  are  given  in  Table  2-5  and  plotted  in 
Figure  2-4. 

RH-73  (p.  15-2U,  Figure  lu)  presents  the  non..al  emittance  of  topsoil. 
The  results  of  digitizing  this  curve  and  computing  the  normal  reflectance  are 
given  in  Table  2-5  and  plotted  in  Figure  2-4. 

Spectral  data  for  (Russian)  soil,  not  otherwise  identified,  are  given 
by  Kropotkin  [(1%4)  per  Ba-67b,  Figure  82],  reproduced  here  as  Figure  2-2. 

The  results  of  digitizing  the  Kropotkin  curve  are  given  in  Table  2-6  and  plot¬ 
ted  in  Figure  2  4. 

The  results  of  averaging  the  digitized  data  for  the  Pawnee  Grassland 
soil  [Ho-66],  the  topsoil  reported  in  RH-73,  and  the  Russian  soil  [Ba-67bJ  are 
given  in  Table  2-3  and  plotted  in  Figure  2-4. 

2-2.4  Vegetation 

The  following  spectral  reflectance  data  for  vegetation  were  provided 
by  U.C.  Andirg  who  says; 

"Values  of  spectral  diffuse  reflectance  of  vegetation  repre¬ 
senting  the  averages  for  many  types  cf  vegetation  wp.'p  nh- 
taiied.  The  data  were  taken  from  LE-71a  for  i  ^  2.5  urn  for 
which  the  typical  measurement  procedure  was  to  illuminate  at 
normal  incidence  and  collect  hemispherical  output.  Values 
beyond  2.5  um  were  estimated." 
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Table  2-5.  Spectral  reflectance  of  soil  ,  d^. 


Pawnee  Grassland  Soil^ 

Topsoil^ 

i  ,  yHl 

<^5 

X  f  aTTl 

l-€^  =P5 

2.00 

0.36 

2.00 

0.725 

0.275 

2.08 

.395 

2.50 

.766 

.234 

2.62 

.27 

2.61 

.800 

.200 

2.70 

.045 

2.77 

.950 

.050 

3.15 

.045 

2.92 

.950 

.050 

3.70 

.22 

3.15 

.920 

.080 

4.10 

.25 

3.50 

.910 

.090 

5.00 

0.09 

3.82 

.810 

.190 

4.15 

.790 

.210 

Hovi  s 

tHo-66,  Fig.  9] 

4.77 

.825 

.175 

5.00 

0.860 

0.140 

'^R8-73, 

p.  15-20. 

Fig.  10, 

Russian  Soil'" 

* ,  um 

“5 

2.00 

0.150 

2.25 

.160 

2.50 

.150 

2.70 

.125 

2.85 

.090 

3.25 

.075 

4.10 

.130 

4.60 

.130 

5.00 

0.110 

'"Kropotkin  (1964)  [3a-67b,  Fig.  92] 


For  i  <  2.5  um,  the  data  are  the  same  as  those  g’ven  in  Figure  37e  of 
RA-73  (or  Figure  3--19  of  WZ-78);  at  longer  wavelengths  the  curve  in  Figure  37e 
of  RA-73  differs  soffle*^at  from  the  estimated  data  provided  by  Anding.  The 
results  of  digitizing  Anding's  curve  are  given  in  Table  2-3  and  plotted  in 
Figure  2-5.  Whereas  we  will  use  the  curve  in  Figure  2-5,  one  should  be  alert 
for  more  specific  data. 
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Spectral  reflectance  for  toil,  pc  •  Dash—dot  curve  it  average  of  (A)  Pawnee 
Gratslaixi  soil  (Ho— €6,  Figure  9] ,  (B)  Topsoil  (RH— 73,  p.  15—20, 

Figure  10] ,  and  (C)  Russian  soil  (Kropotkin  (1964)  per  ^~€7b,  Figure  82] 


2-2.5 


Urban  Materials 


Wolfe  [Wo-65a,  Figure  4-23]  reports  the  spectral  reflectance  of 
asphaltic  road  material.  The  results  of  digitizing  this  curve  are  given  in 
'able  2-6  and  plotted  in  Figure  2-6. 


Spectral  reflectance  data  for  (Russian)  asphalt,  brick,  end  concrete 
are  given  by  Kropotkin  [(1964)  per  Ba-67b,  Figure  67b],  reproduced  here  as 
Figure  2-2.  The  result  of  digitizing  these  curves  are  given  in  Table  2-6  and 
plotted  in  Figure  2-6. 

The  results  of  averaging  the  digitized  data  for  the  asphaltic  road 
material  [Wo-65d]  and  the  Russian  asphalt,  brick,  and  concrete  are  given  in 
Table  2-3  and  plotted  in  Figure  2-6. 


2-3 


EVALUATIOU  OF  DIRECTIONAL  DATA  FOR  THE  BRDF 


2-3.1 


Snow 


Salomonson  and  Marlatt  [SM-68,  SM-68a]  have  measured  spectrally  inte¬ 
grated  values  (0.55  to  0.35  urn  and  0.2  to  4.0  urn)  of  the  BRDF's  for  clouds, 
sno.  and  white  gypsum  sand.  The  ordinate  in  their  Cartesian  plots  is  actu¬ 
ally  n  times  the  BRDF.  The  relative  values  of  the  ordinates  on  the  curves  for 
the  0.2-  to  4.0-um  spectral  interval  have  been  digitized  and  they  are  given  in 
Table  2-7. 

The  expression  we  have  evaluated  as  the  relative  BRDF  for  snow  is  the 
ratio  given  by  Equation  (14), 


f  (  9  -  ,9  .ii) 

c  ta  -a  ^  -  r'  1 ’  r’ 

i’  --  ~T:C6-,  ,9,^0,»-)  ' 


[14) 


r '  1  ’  r 


where  f^(fl^ ,9^,*)  is  given  by  Equation  (1),  with  the  five  directional  para¬ 
meters  (oj,  Bj,  Oj,  RjiO),  and  ^^(f))  as  given  in  Table  2-2a  for  m=3.  We  have 
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Table  2-6.  Spectral  reflectance  of  seme  urban  materials,  Oy 


Asphal  tic 

Road  Material* 

Asphalt*^ 

^,uin 

“7 

X ,  uni 

2.00 

0.462 

2.00 

0.100 

2.12 

.480 

2,50 

.090 

2.24 

.411 

3.00 

.025 

2.26 

.226 

4.00 

.075 

2.36 

.226 

4.60 

.075 

2.47 

.346 

5.00 

0.060 

2.63 

.436 

2.70 

.436 

2.89 

.100 

3.00 

.074 

Brick 

3.15 

.077 

3.24 

,042 

X  ,um 

3.38 

.042 

3.62 

.068 

2.00 

0.525 

3.89 

.160 

2.30 

.500 

4.00 

.279 

2.50 

.480 

4.26 

.331 

2,65 

.465 

4.42 

.419 

3.00 

.220 

4.62 

.439 

3.10 

.220 

4.70 

.467 

3.50 

.350 

4.83 

.457 

4.00 

.450 

5.00 

0.476 

4.10 

.450 

4.60 

,350 

5.00 

0.200 

Concrete^ 


X ,  urn 

°1 

X  ,um 

“7 

X  ,um 

"7 

2.00 

0.300 

2.65 

0.200 

4,30 

0.140 

2.20 

.300 

2.85 

.040 

4.60 

.140 

2.40 

.275 

3.10 

.040 

5.00 

0.125 

2.55 

0.250 

3.60 

0.100 

?Wolfe  [Wo-65a,  Figure  4-23,  p.  83] 
Kropotkin  [(1964),  Ba-67b,  Figure  82] 
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Figure  2—6.  Spectral  reflectance  for  urban  materials,  py  .  Dash-dot  curve  is  average  of 

(A)  Asphaltic  road  material  [Wo-65a,  Figure  4—23,  p.  83) ,  (B)  Asphalt 
[Kropotkin  (1964)  per  Ba— 67b,  Figure  821,  (C)  Brick  [Kropotkin  (1964) 
per  Eia— 67b,  Figure  82] ,  and  (D)  Concrete  [Kropotkin  (1964)  per  Ba— 67b, 
Figure  82] . 
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plotted  the  results  for  the  forward  (♦■=0)  and  backward  (♦=»)  directions  as  the 
set  of  continuous  curves  in  Figure  2-7,  with  the  lowest,  middle,  and  highest 
portions  corresponding  to  solar  zenith  angles  (e^)  of  64,  68,  and  84  deg.  The 
experimental  values  of  SM-68  are  also  shown  in  Figure  2-7  for  comparison. 


Table  2.7.  Relative  directional  reflectance  of  snow  for  solar  zenith 
angles  of  e-  =,64,  68,  84  deg,  in  the  spectral  range  of 
0.2  to  4.0  um.^ 


Solar 

Azimuth 

Zenith  Angle  of 

Zenith 

Angle 

Reflected  Ray,  e_ 

®i 

Q 

45 

60 

75 

64 

0 

1.00 

1.26 

1.52 

1.97 

180 

1.03 

1.12 

1.19 

68 

0 

1.21 

1.48 

2.36 

180 

1.21 

1.31 

1.48 

84 

0 

1.63 

2.26 

4.11 

180 

1.01 

1.34 

1.94 

^Values  inferred 

from  Figures  16,  8, 

and  16  of 

Salomonsor 

1  and  Marlatt  [SM-68]. 

2-3.2  Sand 

Salomonson  and  Marlatt  CSM-68]  have  also  obtained  results  for  white 
gypsum  sand.  The  relative  values  of  the  ordinates  on  their  curves  for  the 
0.2-  to  4.0-um  spectral  interval  have  been  digitized;  they  are  given  in  Table 
2-8. 

The  expression  we  have  evaluated  as  the  relative  BRDF  for  sand  is  the 
ratio  given  by  Equation  (14)  with  the  five  directional  parameters  as  given  in 
Table  2-2a  for  m=4.  We  have  plotted  the  results  for  the  forward  (4i=0)  and 
backward  (t='')  directions  as  the  set  of  continuous  curves  in  Figure  2-8,  with 
the  lowest,  middle,  and  highest  portions  corresponding  to  solar  zenith  angles 
(e^)  of  21,  48,  and  59  deg.  The  experimental  values  of  SM-6a  are  also  shown 
in  Figure  2-8  for  comparison. 


Retative  BROF 


F 


Figure  2—1.  Relative  BRDF  for  $r*ow. 


Table  2-8.  Relative  directional  reflectance  of  gypsum  sand  for  solar 

zenith  angles  of  =  21,  48,  59  deg,  in  the  spectral  range 
0.2  to  4.0  um.^  ^ 


Solar 

Azimuth 

Zenith  Angle  of 

Zenith  Angle 

Angle 

Reflected  Ray, 

r 

0 . 

1 

Ip 

0 

45 

60 

75 

21 

0 

1.00 

0.95 

0.95 

0.85 

180 

1.04 

1.04 

0.95 

48 

0 

1.00 

1.02 

1.04 

180 

1.13 

1.19 

1.19 

59 

0 

1.01 

1.10 

1.11 

180 

1.11 

1.22 

1.28 

59 

0 

1.04 

1.07 

1.38 

180 

1.10 

1.20 

1.40 

^Values  inferred 
[SM-68]. 

from  Figures  17, 

18,  9,  and 

19  of  Salomonson  and 

Marlatt 

2-3.3  Soil 

Coulson  [Co-66a,  Figure  4]  plots  the  directional  reflectance  of  black 
loam  soil  at  three  angles  of  incidence  (0,  53,  and  78.5  deg)  in  the  principal 
plane  for  x=6430  A.  Coulson  notes  that  the  backward  maximum  is  relatively 
more  pronounced  at  all  three  angles  than  it  is  for  desert  sand,  and  the  for¬ 
ward  maximum  is  almost  absent  at  the  small  angles  of  incidence. 

Duntley,  Gordan,  et  al .  [DG-64]  measured  the  directional  luminous 
reflectance  of  dirt  (hard  packed,  yellowish).  Their  data  are  reproduced  here 
in  Table  2-9a.  We  have  normalized  these  data  to  the  nadir  value  and  tabulated 
the  results  in  Table  2-9b. 

The  expression  we  have  evaluated  as  the  relative  BRDF  for  soil  (dirt) 
is  the  ratio  given  by  Equation  (14)  with  the  five  directional  parameters  as 
given  in  Table  2-2a  for  m=5.  We  have  plotted  the  results  for  the  forward 
(i’^'i),  backward  (4'="),  and  sideward  (*=11/2)  directions  as  the  set  of  con¬ 
tinuous  curves  in  Figure  2-9.  The  experimental  values  of  DG-64  are  also  shown 
in  Figure  2-9  for  comparison. 
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Relative  BRDF 


Figure  2—8.  Relative  BRDF  for  gypsum  sand. 
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Table  2-9a.  Directional  luriinous  reflectance  of  dirt  for  solar  zenith 
angles  54  deg. 


Sol  ar 

Azimuth 

Zenith  Angle  of 

1 

Zenith  Angle 

Angle 

Reflected  Ray,  6^ 

9  . 

1 

0 

15 

30 

45  60 

75 

80 

53.2 

0  0.243 

0.230 

0.229 

0.239  0.252 

0.300 

0.330 

56.5 

90 

0,243 

0.258 

0.260  0.276 

0.300 

0.304 

51.1 

180 

0.272 

0.313 

0.370  0.422 

0.432 

0.434 

^Duntley,  Gordan 

et  al .  CDG-64,  Table  3.2]; 

Item  8 

=  hard-packed 

,  yellowish 

dirt. 


Table  2-9b 

.  Relative  directional  luni 
zenith  angles  sr  54  deg 

ngus  reflectance  of  dirt  for 

* 

solar 

Solar 

Azi muth 

Zenith  Angle  of 

Zenith  Angle 

Angle 

Reflected  Ray, 

«i 

i> 

0 

15 

30 

45  60 

75 

80 

53.2 

0 

1.00 

0.95 

0.94 

0.98  1.04 

1.23 

1.36 

56.5 

90 

1.00 

1.06 

1.07  1.14 

1.23 

1.25 

51.1 

180 

1.12 

1.29 

1.62  1.74 

1.78 

1.79 

^Derived  from 

Table  2-9a. 

2-3.4  Vegetation 

For  green  grass,  Coulson  [Co-66a]  has  measured  the  directional  reflec¬ 
tance  at  four  different  wavelengths  in  the  visible  and  near-IR  spectral  -eg- 

O 

ions  and  at  three  different  angles  of  incidence  at  x=6430  A,  all  measurements 
being  in  the  principal  plane. 

Duntley,  Gordan  et  al .  [OG-64,  Table  3.2]  have  measured  the  direc¬ 
tional  luninous  reflectance  of  several  types  of  vegetation.  For  each  type  of 
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Relative  BRDF 


Figure  2—9.  Relative  BRDF  for  dirt. 
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vegetation  we  have  normalized  their  data  to  the  nadir  value  for  the  correspond- 
ing  type  of  vegetation  and  presented  the  results  in  Table  2-10.  The  last  set 
of  numbers  in  Table  2-10  represents  an  average  of  the  data  for  the  first  four 
types  of  vegetation. 

The  expression  we  have  evaluated  as  the  relative  BRDF  for  vegetation 
is  the  ratio  given  by  Equation  (14)  with  the  five  directional  parameters  as 
given  in  Table  2'2a  for  m=6.  We  have  plotted  the  results  for  the  forward 
(iiO),  backward  and  sideward  ('i’=’'/2)  directions  as  the  set  of  continu¬ 

ous  curves  in  Figure  2-10.  The  average  of  the  experimental  vegetation  values, 
given  in  Table  2-10,  are  also  shown  in  Figure  2-10  for  comparison. 

2-3.5  Urban  Material s 

2-3.5. 1  Concrete  and  Asphalt 

Wolfe  [Wo-biia,  pp.  88,89]  presents  directional  reflectivity  curves 
for  concrete  and  for  asphalt.  In  fact,  results  are  given  for  three  types  of 
detectors:  PbSe,  PbS,  and  thermistor.  Me  have  selected  the  results  for  the 
PbSe  detector  as  being  of  the  greatest  interest  for  applications  in  the  2-  to 
5-ym  region,  as  seen  by  examining  the  detector  characteristic  curves  presented 
by  Wolfe  [Wo-65a;  PbSe,  pp.  477-479;  PbS,  pp.  474-476;  thermistor,  p.  498]. 

We  have  digitized  the  directional  reflectivity  curves  presented  by  Wolfe  [Wo- 
66a]  for  the  PbSe  detector  and  taken  account  of  the  fact  that  the  "directional 
reflectivity"  r^^  given  in  these  figures  is  related  to  the  partial  reflectance 
(which  we  here  call  the  BRDF,  f^  [Ni-70d,  Ni-65c]5  by  the  expression 

=  f^ls^ cos  e.  cos  0^  .  (15) 

We  have  given  both  the  directly-read  values  r^^  and  converted  values  f^  in 
Tables  2-lla  and  2-llb.  For  each  source  zenith  angle  0^  we  have  normalized 
these  values  of  the  BRDF  to  an  average  of  the  near-nadir  values  and  tabulated 
the  results  in  Table  2-1 Ic. 
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Table  ?-10.  Relative  directional  luminous  reflectance  of  several  types  of 
vegetation. 


(11  Pine  Trees;  small , 

uniformly  spaced.  Data  are 

for  unresolved 

terrain 

1. 

Solar 

Azimuth 

Zenith  Angle 

of  Reflected  Ray,  9^. 

Zenith,  9. 

* 

0 

15 

30 

45 

50 

75 

80 

85 

41.5 

0 

1.00 

0.72 

0.64 

0.64 

0.78 

1.14 

1.39 

2.58 

45 

.67 

.61 

.58 

.63 

.91 

1.16 

1.65 

90 

.95 

.93 

.95 

.95 

1.01 

1.16 

1.39 

135 

1.01 

1.15 

1.18 

1.16 

1.32 

1.39 

1.72 

180 

1.21 

1.33 

1.74 

1.92 

2.14 

2.28 

2.48 

(2)  Grass; 

thick,  rather  long 

,  pale  ^ 

green. 

dormant 

,  dryi sh 

1,  little  ground 

showing 

Solar 

Azimuth 

Zenith  Angle 

of  Reflected  Ray,  0^ 

Zenith, 

0 

15 

30 

45 

60 

75 

80 

85 

41.5 

0 

1.00 

0.92 

0.86 

0.87 

1.00 

1.07 

1.09 

1.07 

180 

1.11 

1.35 

1.66 

1.70 

1.74 

1.74 

1.82 

(3)  Grass; 

lush  green 

,  closely  mowed 

thick 

lawn. 

Sol  ar 

Azimuth 

Zenith  Angle  of  Reflected  Ray, 

V 

Zenith,  0^ 

0 

15 

30 

45 

60 

75 

80 

40.4 

0 

1.00 

0.96 

O.QP 

1.08 

1.20 

1.49 

1.68 

39.6 

90 

1.03 

1.10 

1.21 

1.38 

1.59 

1.68 

39.6 

135 

1.07 

1.25 

1.48 

1.66 

1.78 

1.78 

39.9 

180 

1.09 

1.09 

1.19 

1.22 

1.25 

1.25 

(continued) 
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Table  2-10.  Relative  directional  luminous  reflectance  of  several  types  of 
vegetation  (Cont'd). 


(4)  Mixed 

Green  Forest; 

deciduous  (oak)  and  evergeen  (pine) 

• 

Sol  ar 

Azimuth 

Zenith  Angle  of  Reflected  Ray,  8^, 

Zenith,  e 

i 

0 

15 

30  45 

60 

75 

39.0 

0 

1.00 

0.90 

0.81  0.57 

0.57 

0.95 

37.0 

180 

1.14 

1.37  1.37 

2.28 

7.30 

(5)  Pine 

Forest. 

Solar 

Azimuth 

Zenith  Angle  of  Reflected  Ray, 

Zenith,  9 

i  * 

0 

15 

30  45 

60 

75 

33.5 

0 

1.00 

1.00 

0.80  0,64 

0.64 

0.52 

(6)  Average  of  First  Four  Types. 

Sol  ar 

Azimuth 

Zenith  Angle  of  Reflected  Ray,  9^ 

Zenith,  9 

i  * 

0 

15 

30  45 

60 

75 

80 

85 

•^40 

0 

1.00 

0.88 

0.82  0.79 

0.89 

1.16 

1.39 

1.82 

90 

0.99 

1.01  1.08 

1.16 

1.30 

1.42 

180 

1.14 

1.28  1.49 

1.78 

3.11 

1.76 

^From  DG- 

64,  Table  3.2 

The  expression  we  have  evaluated  as  the  relative  BRDF  for  concrete 
and  for  asphalt  is  the  ratio  given  by  Equation  (14)  with  the  parameters  for 
concrete  being  =  2,  =  4.  6^^  =  0.5,  ^7^(0)  =  8,  and  =  1  and  for 

asphalt  being  =  2,  =  4,  =  0.5  871,(0)  =  13,  and  R7[3(’')  =  1-  "e 

have  plotted  the  results  for  the  forward  (*=0)  and  backward  (f^”)  directions 
in  Figure  2-lla  and  2-lib.  The  experimental  values  reported  in  Wo-65a  are 
also  shown  in  Figures  2-lla  and  2-llb  for  comparison.  For  an  overage  of  con 


43 


R«latiVe  BRDF 


Figure  2—10.  Retative  BRDF  for  vegetation. 
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Table  2-lla.  Directional  reflectance  data  for  concrete.^ 


r . 

^  r 

f,. 

-1 

,9r 

r 

V 

9 

r 

6.=0 

9^=20 

6.  =40 

1 

9^=60 

a.=0 

a  .=?U 

9.  =40 

e.=6Q 

0 

80 

0.027 

0.030 

0.030 

0.032 

0.16 

0.18 

0.23 

0,37 

0 

70 

.039 

.040 

.045 

.056 

.11 

.12 

.17 

.32 

0 

60 

.053 

.053 

.063 

.064 

.11 

.11 

.14 

.26 

0 

50 

.073 

.075 

.074 

.061 

.1^ 

.12 

.15 

.19 

0 

40 

.086 

.081 

.075 

.057 

.11 

.11 

.13 

.15 

0 

30 

.10 

.094 

.092 

.058 

.12 

.12 

.14 

.13 

0 

20 

.10 

.11 

.090 

.053 

.11 

.12 

.13 

.11 

0 

10 

.11 

.12 

.088 

.059 

.11 

.13 

.12 

.12 

0 

.11 

.089 

.064 

.12 

.12 

.13 

180 

10 

.10 

.10 

.084 

.055 

.10 

.11 

.11 

.11 

180 

20 

.10 

.077 

.049 

.11 

.11 

.10 

IBO 

30 

.10 

.094 

.073 

.046 

.12 

.12 

.11 

.11 

180 

40 

.087 

.065 

.049 

.11 

,090 

.13 

180 

50 

.073 

.063 

.053 

.032 

.a 

.10 

.11 

.10 

180 

60 

.061 

.040 

.050 

.12 

.085 

13 

180 

70 

.037 

,040 

.030 

.11 

.12 

.11 

180 

80 

.027 

.17 

^Values  of  r. 
computed’ 

.  read 
from 

from  Wo-65a,  p 

=  r^.^/(cos  9. 

.  88,  Figure 
cos  9^1. 

4-28. 

PbSe  do 

tec  tor . 

Values  of 

Crete  and  asphalt  we  propose  the  five  directional  parameters  as  given  in  Table 
2-2a  for  (n=7. 

2-3. 5. 2  Urban  Geometry  Parameters 

Because  an  urban  area  has  an  exceedingly  complex  geometrical  struc¬ 
ture,  we  introduce  (1)  a  (conjectured)  shadow- factor,  S(e^,e^),  given  by 

=  (cos  9^  cos  9^1  /2  (It) 

(which  may  take  on  values  in  the  range  from  0  to  1  as  -v  and  9^  range  from 
maximisn  values  of  s.  =  =  90°  to  minimum  values  of  9.  -  =  0),  and  (2)  a 


Table  2-llb. 


Directional 


reflectance  data  for  asphalt. 


a 


""ir 

-1 

sr 

V 

a.=0 

e^.=20 

6  ^  =40  0 

.=60 

0.=O 

6^=20 

6  .=40 

9^=60 

Q 

75 

0.0093  0 

.015 

0.047 

0.12 

0 

70 

0.0057 

0.021 

.014 

.022 

0.017 

0.065 

.053 

.13 

0 

60 

.025 

.027 

.020 

.020 

.050 

.057 

.052 

.080 

0 

50 

.025 

.025 

.020 

.022 

.039 

.043 

.041 

.068 

0 

40 

.025 

.029 

.023 

.036 

.032 

.040 

.039 

.094 

0 

30 

.028 

.019 

.027 

.017 

.032 

.023 

.041 

.039 

0 

20 

.020 

.025 

.031 

.013 

.021 

.028 

.043 

.028 

0 

10 

.026 

.023 

.022 

.018 

.026 

.025 

.029 

.037 

0 

.024 

.022 

.017 

.025 

.029 

.034 

180 

10 

.026 

.022 

.022 

.011 

.026 

,024 

.029 

.022 

180 

20 

.020 

.018 

.014 

.021 

.025 

.030 

180 

30 

.028 

.014 

.015 

.014 

.032 

.017 

.023 

.032 

180 

40 

.025 

.026 

.0i4 

.032 

.036 

.037 

180 

50 

.025 

.025 

.016 

.012 

.039 

.041 

.032 

.037 

180 

60 

.026 

.013 

.0069 

.052 

.028 

.018 

180 

70 

.0066 

.013 

.0053 

.019 

.050 

.031 

180 

80 

.0036 

.041 

^Values  of 

r.  read 

from  Wo-55a,  p. 

89,  Figure 

'  4-29,  PbSe  detector. 

Values  of 

computed  from  f 

=  r . 
r  ir 

/(cos9^.  cos  e^). 

degree-of- 

urbanization  fac 

tor ,  D ( 7 ) 

,  with  the 

rang'’  0< 

0(7)  i 

1.  The  BRDF  for 

an  urban  area  wi 1 1 

be  defined  as 

1  f 

\ 

1 _ 

^(m=7)  = 

D(7)Po7 

(O  S(o.j, 

9^)  +  [1-D( 

7)j 

given  by  Eq.  ( 

1)].  ^  (17) 

Thus 

,  for 

0(7)  =  1, 

the  spectral  BRDF  corresponds  to  a 

diffuse  reflector  modi- 

fied  by  the  snadow 

factor 

For  D(7 )= 

0,  the  spectral 

BRDF  corresponds 

to  a 

flat 

surface  with  average  directional-r 

.tance 

prope*^ 

ties  of 

concrete 

ana  asphalt. 


The  directional-hemispherical  reflectance  defined  by  Equation  (5), 
wHh  f^  given  by  Equation  (17),  is 
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Table  2-llc.  Relative  bidirectional  reflectance  distribution  functions 
for  concrete  and  asphalt. 


Concrete 


Asphal t 


V 

O  1 

".J 

CD  1 

1 

1  o 

9  .=40 

0^=60 

% 

9^=20 

0  .=40 

0.=6O 

0 

80 

1.45 

1.50 

1.92 

3.25 

75 

1.62 

3.97 

0 

70 

1.00 

1.00 

1.42 

2.81 

70 

0.72 

2.60 

1.83 

4.30 

0 

60 

1.00 

0.92 

1.17 

2.28 

60 

2.13 

2.28 

1.79 

2.65 

0 

50 

1.09 

1.00 

1.25 

1.67 

50 

1.66 

1.72 

1.41 

2.25 

0 

40 

1.00 

0.92 

1.08 

1.32 

40 

1.36 

1.60 

1.34 

3.11 

0 

30 

1.09 

1.00 

1.17 

1.14 

30 

1.36 

0.92 

1.41 

1.29 

0 

20 

1.00 

1.00 

1.08 

0.96 

20 

0.89 

1.12 

1.48 

0.93 

0 

10 

1.00 

1.08 

1.00 

1.05 

10 

1.11 

1.00 

1.00 

1.22 

0 

1.00 

1.00 

1.14 

0 

1.00 

1.00 

1.13 

180 

10 

0.91 

0.92 

0.92 

0.96 

10 

1.11 

0,96 

1.00 

0.73 

180 

20 

1.00 

0.92 

0.88 

20 

0.89 

0.86 

0.99 

180 

30 

1.09 

1.00 

0.92 

0.96 

30 

1.36 

0.68 

0.79 

1.06 

180 

40 

1.00 

0.75 

1.14 

40 

1.36 

1.44 

1,22 

180 

50 

1.00 

0.83 

0.92 

0.88 

50 

1.66 

1.64 

1.10 

1.22 

180 

60 

1.09 

0.71 

1.08 

60 

2.21 

1.12 

0.62 

180 

70 

1.00 

1.00 

0.92 

70 

0.81 

1.72 

1.03 

180 

80 

1.42 

80 

1.36 

^Derived  from  data  in  Tables  2-lla  and  2-llb. 


<Py>  s  <oy[x;9^  ,2it;  D(7)]>pjyj  =  J"  f^  cos  0^  dn^ 

^  D(7)  y*  S(9^,9^)  cos  0^  dn^ 

+  [1-0(7)]  y [f^  given  by  Eq.  (1)]  cos  0^  da^ 
<py>  =  0(7)  p^yix)  2  J  ^cos  0.  +  cos  0^)  cos  0^  dn^ 


+  [1-0(7]]  "Pjjyix)  G(ay  ,6y  ,Vy  ;e- ) 


<Py>  =  0(7)  Pg7(x)  u  [^  cos  9.  +  j]  [1-0(7)]  Py  ( X ;  0  ,2it ) , 


(18) 
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BRDF 


0^ ,  Degrees 

Figure  2— 11a.  Relative  BRDF  for  concrete. 


b3 


Relative  BRDF 


5 


1  1  r 

Asphalt 


The  directional  emissivity  (for  m=7,  at  a  zenith  angle  e)  defined  by 
Equation  (12)  with  P|jj( x ;0 ,2ir)  given  by  <Of'>  (in  which  e^.  is  replaced  by  e)  is 

Ej,(m=7)  ;  <ej,[nT=7,x,9;D(7)]>Qj^j 


(12“) 


ejj(m=7)  =  1  -  (  It  Oq^Ix)  D{7)  +  P7(x;e.2iT)[l-D(7)] 


[19) 


Thus,  as  expected,  for  0(7)  =  1,  the  directional  emissivity  corresponds  to 
that  for  a  diffuse  reflector  modified  by  the  shadow-factor  quantity  (which 
ranges  from  1/3  for  0=90“  to  5/6  for  0=0°).  For  D(7)  =0,  the  directional 
emissivity  corresponds  to  a  flat  surface  with  average  directional-emissivity 
properties  of  urban  materials. 


2-4  INTEGRATION  OF  THE  BRDF 


The  spectral,  directional-hemispherical  reflectance,  denoted  here  by 
0(0^, 2it),  is  defined  [Ni-6C'-,  WQ-65a]  by  the  integral 

0(9^, 2it)  =y* f^  cos  9^  dn^  (5') 


where  f^  is  the  bidirectional  reflectance-distribution  function  (BRDF).  We 
want  to  evaluate  this  integral  when  f^  is  given  by  our  invented  expression  for 
the  BRDF,  given  by  Equation  (1); 


fr  "  ®i’  V’  "  ^r*®i*  ®r’ 

=  Og[l  +  F^(e^)  e^(y)  T(*) 


with 


F^(6.j)  i  F^(a,e^)  =  exp[-a  (cos  8^)^] 


(21a) 
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(21b) 


e^(u)  =  exp[-ay^] 


p  =  cos 

(21c) 

v(i|i) 

=  R(i;))  exp[-aS(l-ll-2*/iil )] 

(21d) 

R(«l.) 

=  R(0)  -  aRh./* 

(21e) 

&R  = 

R(0)  -  R(0  . 

(2lf) 

For  symmetry  about  the  principal  plane,  we  can  write  Equation  (5‘)  as 

ir  1 

p(0^,2ii)  =  2pg  J" d*  [1  exp(-au^)T(\(i)F^{ 6^  )1  (22a) 

0  0 

n 

=  2Po[|  +  F^(9^)  J"  din  t(*)P2^(a)]  (22b) 

0 

where 

1 

p2^(a)  f  dpy  exp(-«y^)  (23) 

0 

^21^“^  ~  ^  [1-s  "^(a+l)]  (23a) 

a 

^22*“’  =  ^  (l-e'“)  .  (23b) 

For  the  integral  ,  we  have 
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where 


l^=  j  t(v) 


ir/2  n 

f  dip  exp(-2aeiii/w)R(i|()  +  J"  exp[-2oS (n-'P/i']R('P) 

0  ,/2 


(24) 


x/2 


x/2 


R{0)  y  dip  exp(-2aeii/ii)  ~~  J  '•'t'  'I'  exp  (-206+/*) 
0  0 


/aR  /* 

di<  exp[-2ae(»-4i)/ii]  -  ~  J  +  exp[-2a6(if-ip)/ii] 


n/2 


k/2 


(24a) 


R(0)  ^  P^(a8)  -  (f)'  P2i(aB) 


(24b) 


+  R(0)  I  Pj(aB)  -  -^1  [ir  Pj(a8)  - 


-  tR  P2^(aB) 


(24c) 


Pj^(aB)  =  J"  dy  exp{-aBy)  =  [l-exp(-aB)] 


(25a) 


R  =  [R{0)  +  S(x)]/2  . 


(25b) 


After  collecting  terms,  we  have 
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p(9^,2t,)  =  [  1  +  2  Pj(aS)  R  . 


(26) 


To  compute  <f^(0,0,*)>,  we  write 

5  [1  +  F^{0)  6^(1)  <t(>i>)>]  (27) 

=  0^  [1  +  exp(-2a)  <'r(*)>]  (27a) 

wi  th 

n 

<t(4')>  =  i  y"  d*  »{<(.)  =  R  P^(oB)  .  (27b) 

0 

2-5  SUBROUTINE  ESURF 

Subroutine  ESURF  provides  the  bidirectional  reflectance-distribution 
function  (BRDF),  directional  emissivity,  and  temperature  of  the  Earth's  sur¬ 
face  at  the  intersection  point  of  the  optical  line-of-sight.  Since  the  sur¬ 
face  category  is  not  automatically  correlated  with  the  geographic  position, 
the  user  must  select  one  of  seven  categories  provided. 

The  relationship  between  Subroutine  ESURF  and  the  routines  it  calls 
is  shown  in  Figure  2-12.  Table  2-12  summarizes  the  inputs  and  outputs  for 
Subroutine  ESURF. 
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LINEAR 


Figure  2-  .2.  Relationships  between  the  routines  in  the  Earth  Sutiace 
Characterization  Model. 
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Table  Z-12.  Input  and  output  variables  for  Subroutine  ESURF 


INPUT  VARIABLES 


Argument  List 


THI 

THR 

PSl 


ZKM 

MSM 


DD(M) 


Zenith  angle  of  sun  at  intersection  point  (P)  on  Earth's 
surface,  (radians) 

Zenith  angle  of  line-of-siqht  (from  detector)  at  inter¬ 
section  point  (P)  on  Earth^s  surface,  (radians) 

Azimuth  angle  (at  intersection  point  (P))  of  vertical  plane 
through  line-of- sight,  measured  relative  to  the  solar  prin¬ 
cipal  plane  (i.e.,  vertical  plane  through  solar  ray).  A 
value  of  zero  for  PSI  corresponds  to  forward  scattering, 
(radians) 

Altitude  of  surface,  (km) 

Index  M  for  category  of  surface  material. 

=1,  Lambertian  diffuse  surface  with  spectral ly- i ndependent 
reflectance  set  by  0D(l)  and  emissivity  by  [1  -  DD(1)]. 
=2,  Hater. 

=3,  Snow. 

=4,  Sand. 

=5,  Soil  . 

=6,  Foliage. 

=7,  Urban  material. 

Additional  descriptor  for  selected  surface  material. 

D0(1)  =  Diffuse  reflectance  for  Lambertian  surface. 

Typical  value  is  0. 1. 

D0(2)  =  Wind  speed,  (meters, 'sec) 

D0(3)  =  Snow-age  parameter,  between  the  limiting  values  of 

□  and  1  for  new  and  old  snow,  respectively. 

DD(M)  for  M  =  4,  5,  6  not  used. 


(continued) 
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Table  2-12. 


Input  and  output  variables  for  Subroutine  ESl^F  (Cont'd). 


SPCUW  - 


ZLAM  - 
lOAY  - 


IFIRES  - 


ESURFl  - 


00(7)  =  Degree-of-urbanization  between  0  and  1,  for  which 

limits  the  spectral  BRDF  corresponds,  respec¬ 
tively,  to  (a)  a  flat  surface  with  average  direc- 
tional-refl  ectance  properties  of  concrete  and 
asphalt  and  (b)  a  diffuse  reflector  multiplied  by 
a  shadow  factor  S(THI ,THR )-[cos  THI  +  cos  THR]/2. 

Logical  variable. 

=  .TRIM.,  Compute  coordinates  of  specular  reflection  point 
on  an  assumed  smooth  horizontal  water  surface,  if  MSM  = 

2,  in  v^jich  case  the  variable  is  passed  to  Subroutine 
GLITTR. 

=  .FALSE.,  Do  not  compute  such  coordinates. 

Wavelength,  (um) 

Index  for  diurnal  condition  at  Point  P. 

=  0,  Solar  zenith  angle  >  9G  deg. 

=  1,  Solar  zenith  angle  i  90  deg. 

Flag  for  inclusion  of  fireballs  as  sources.  In  NBR  Module, 

TPIRPS  =  0  always. 

=  0,  No  fireball  is  to  be  considered. 

>  0,  Fireballs  are  to  be  considered. 

Logical  variable. 

=  .TRUE.,  If  ESUSF  is  called  for  the  first  time  from 
Subroutine  SURRAD  and  both  EPSD  and  TKS  are  wanted  in 
addition  to  SFR  as  outputs.  In  NBR  Module,  ESURFl  = 
.TRUE,  always. 

=  .FALSE.,  If  E5URP  is  not  being  called  for  the  first  time 
from  Subroutine  SURRAD  and  a  reccnputation  of  EPSD  and 
TKS  is  not  needed.  This  possibility  occurs  only  if 
Subroutine  SURRAD  is  used  as  a  utility  routine  with  fire- 
bal 1 s  as  sources. 


( cnnti nued) 
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Table  2-12.  Input  and  output  variables  for  Subroutine  ESURF  (Cont'd). 


ATMOUP  Coninon 

TT  -  Ambient  atmospheric  temperature  at  altitude  ZKM.  (deg  K) 

OUTPUT  VARIABLES 
Argiroent  List 

SFR  -  Bidirectional  reflectance-distribution  function. 

f^[M,  DD(M),  ZLAM;  THl ,  THR,  PSI],  (l/sr) 

EPSD  -  Directional  emissivity 

=  1  -  p^(ZLAH;  THR,  2*).  (dimensionless) 

TKS  -  Surface  temperature,  (deg  K) 

POSITN  Conmon 

(This  output  obtains  only  if  I4SH=2  and  SPCULR=.TRUE . ) 

SPCLAT,  -  North  latitude  and  east  longitude  of  the  point  on  an 
SPCLOH  assumed  smooth  horizontal  surface  for  a  specular 

reflection  from  the  sun  to  the  detector  at  Point  V. 

( radians) 
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SECTION  3 


EARTH  SURFACE  CHARACTERIZATION;  WATER  SURFACE 


3-1  RADIANCE  FROM  A  ' '’ND-RUFFLEO  WATER  SURFACE 


3-1.1  Basic  Cox-Hunk  Formula 


The  Cox-Munk  formula  [CM-54,  Equation  (9)]  may  be  rewritten  as 


oliu)  E  p(3) 

4  cos  U  cos  8 


(1) 


where  L  is  the  spectral  radiance  of  the  sea  surface  in  the  1 ine-of-sight,  p(u1 
is  the  Fresnel  specular  reflectance  of  water  for  radiation  of  wavelength  x  at 
angle  of  incidence  u,  u  is  the  zenith  angle  of  the  detector,  6  is  the  slope 
(or  tiltl  of  the  water  facet  required  to  give  a  specular  reflection  to  the 
detector,  E  (called  H  in  CM-54)  is  the  solar  spectral  irradiance  (normal  to 
the  solar  path)  at  the  sea  surface,  and  p(8)  is  the  probability  for  the  occur¬ 
rence  of  si  ope  6 . 


Stegelmann  and  Garvey  [SG-73b]  derive  an  equation  for  the  radiance 
which  differs  from  Equation  (1).  The  ratio  of  the  radiance  predicted  by  Ste- 
gelmann  and  Garvey  to  that  predicted  by  Cox  and  Munk  is 


1.-,.  cos  9  .  cos  3 

ob  _  _ T _ 

'"CM  cos  j 


(2) 


where  e.  is  the  solar  zenith  angle.  Stegelmann  and  Garvey  seem  to  imply  that 
Equation  (1)  is  incor'-ect  owing  to  an  incorrect  coordinate  transfonnation.  We 
have  not  checked  all  of  the  work  in  detail,  so  we  don't  know  wnat  the  discre¬ 
pancies  are  due  to.  Since  the  Cox-Hunk  formula  is  widely  used  in  the  litera- 
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ture,  we  will  continue  to  use  it  until  the  cause  of  the  alleged  error  is  iden¬ 
tified  more  explicitly. 


3-1.2  Slope  Distribution  Function 


Cox  and  Monk  [CK-54]  show  that  to  a  first  order  the  slopes  are  nor¬ 
mally  distributed  and  independent  of  wind  direction,  according  to 


P  exp[-{z  ^  ♦  2 


{3al 


where 


rms  slope  regardless  of  direction 

azimuth  of  the  direction  of  steepest  ascent,  measured  clock¬ 
wise  from  the  sun 


az/ax  s  sin  a  tan  e 
az/ay  =  cos  o  tan  e 


(4a) 

(4b) 


so  that 


(3b) 


3-1.3  Relation  Between  Slope  Variance  and  Wind  Speed 


3-1.3. 1  Cox-Munk  Relation  (regardless  of  direction) 


Cox  and  Hunk  [CM-54,  CM-56]  computed  the  mean  square  slope  compo- 
2  2 

nents,  for  crosswind  (o^  )  and  up/downwind  ),  from  their  glitter  photo¬ 


graphs.  For  simplicity  we  shall  use  only  their  results  for  the  mean  square 
2  2  2 

slope,  0  =0^  *  of  wind  direction,  for  a  clean  surface  (as 

opposed  to  an  oil-slick  surface,  e.g.)- 


-3 


=  (3  +  5.14  W)  X  lO"-'  t  0.004 


(5) 


’I 
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This  result  is  based  on  measurements  for  wind  speeds  from  about  0.3  to  about 
14  m/sec  [CM-56]. 

Since  one  might  expect  o  to  vanish  as  W  vanishes,  we  have  plotte..  the 
velocity-dependent  portion  of  Equation  (5), 

=  (0.00512  ,  (5a) 

as  the  dash-dot  line  in  Figure  3-1.  We  also  represent  Equation  (5)  in  Figure 
3-1  by  plotting 

a  =  (oq^  +  0,003)^''^  (5b) 

as  the  solid  line  and 

0^  =  (o^  ±  0.004)^^^  (5c) 

as  che  dashed  lines. 

3-1. 3. 2  Some  Useful  nd-Rel  ated  Conversion  Factors 

Relations  between  knots,  meters  per  second,  and  miles  per  hour  are: 

1  knot  =  0.5144  m/sec  =  1.151  mph. 

Relations  between  sea-states,  Beaufort  numbers,  and  wind  velocity  are  shown  in 
Figure  3-2  (adapted  from  Wu-60a). 

There  is  a  significant  altitude  variation  of  wind  v4iich  must  be  kept 
in  mind  while  reading  the  sun-glitter  literature. 

Duntley  [Du-54],  in  relating  his  measuretiients  of  the  distribution  of 
water  wave  slopes  (on  a  lake)  to  those  of  Cox  and  Munk  [CH-54J  (in  the  open 
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Figure  3—2.  Relations  between  sea-states,  Beaufort  numbers,  and  wind 
speed  (from  Wu— 69a). 

sea),  speaks  of  the  "customary  2-to-l  ratio  between  wind  speeds  measured  at  41 
feet  (12.5  meters)  above  the  mean  water  level  (as  for  CM-54)  and  8  inches 
[Ou-54]  above  the  wave  crests." 

Cox  [Co-58]  relates  his  laboratory  measurements  to  those  of  Cox  and 
Munk  [CM-54].  Cox  states; 

"Measurements  of  wind  speed  in  the  tank  represent  average 
speed  throughout  the  air  channel;  it  may  be  estimated  that  the 
level  at  which  this  speed  is  reached  in  the  boundary  layer 
next  to  the  water  is  4  to  8  cm  above  mean  water  level.  Hence, 
oceanic  measurements  of  wind  speeds  made  at  a  height  of  12.5  m 
must  be  reduced  by  a  large  and  uncertain  correction  factor 
before  a  useful  comparison  can  be  made.  1  assume  the  factor 
i  s 

this  assumes  (1)  a  logarithmic  velocity  profile  near  the 
water  in  both  tank  and  ocean,  (2)  an  effective  height  of  wind 
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observation  in  the  tank  of  6  cm,  and  (3)  a  roughness  length 

in  both  the  tank  and  ocean  of  0.1  cm." 

3-1. 3. 3  Limitations  on  the  Cox-Munk  Relation 

Strong  and  Ruff  [SR-70a]  state:  "Recent  results  from  Wu  [o.  Atmos. 

Sci .  408  (1969)]  show  a  sea-roughness  saturation  for  winds  above  15  m/sec, 

which  means  one  cannot  rely  on  a  changing  slope  distribution  at  higher  wind 
speeds." 

Time  does  not  permit  further  review  of  the  relation  between  slope 
variance  and  wind  speed;  some  additional  relevant  references  include  those  by 
Wu  [Wu-69a,  Wu-70,  Wu-71,  Wu-72a.  Wu-77]  and  Cox  [Co-74]. 

3-2  REFLECTION  GEOMETRY  FOR  A  SPHERICAL  EARTH 

Cox  and  Munk  assumed  a  flat  Earth  in  deriving  their  reflection  geo¬ 
metry,  We  want  to  consider  a  spherical  Earth.  Fortunately,  Levanon  [Le-71b] 
has  derived  the  necessary  equations  for  viewing  the  reflections  from  a  synchro¬ 
nous  satellite.  We  have  not  yet  verified  the  equations  in  detail;  so  far,  we 
have  only  determined,  by  examining  Levanon' s  simplified  formulas,  that  an  east 
longitude  relative  to  the  detector  is  positive  and  a  north  latitude  is 
positive.  Levanon  assumed  his  satellite  was  on  the  equator  and  at  zero-degree 
longitude.  Accordingly,  we  have  modified  some  of  his  definitions  so  as  to 
allow  for  an  arbitary  position  of  the  detector.  We  reproduce  these  (slightly 
modified)  definitions  and  formulas  from  Levanon's  Section  2  [Le-7lb].  Anyone 
studying  these  equations  should  consult  his  Figure  2  which  illustrates  the 
reflect! cn  geometry. 

Levanon  has  considered  the  following  geometrical  question:  Given  the 
longitude  and  latitude  of  the  sun  and  detector  subpoints,  and  of  the  point  of 
reflection,  what  is  the  tilt  magnitude  and  direction  and  the  angle  of  inci¬ 
dence,  at  that  point  of  reflection? 


The  following  notation  is  adopted: 

0  -  the  center  of  the  Earth 

S  -  the  sun  subpoint 

V  -  the  detector 

P  -  the  point  of  reflection 

i  -  an  index  taking  values  s,  p,  n 

-  a  point  defined  by  the  sea  surface  and  a  vector  parallel  to 
i  and  starting  at  0 

-  north  latitude  of  i  (or  of  Q^) 

♦  -  east  longitude  of  i  (or  of  Q^)  relative  to  that  of  V 

r  -  radius  of  Earth 

hj  -  altitude  of  detector 

-  altitude  of  P  (if  a  lake,  e.g.) 

I  -  vector  between  the  detector  and  the  point  of  reflection 

n  -  the  normal  required  for  reflection  from  P 

8  -  the  northward  tilt  at  P 

♦  -  the  eastward  tilt  at  P 

8  -  the  magnitude  of  the  total  tilt  at  P 

-  the  angle  of  incidence 

For  convenience  we  introduce 


For  Point  Q^; 


=  tan 


-1 


■E  .  cos  6  sin  -I 
_ P  I 

1-e  .  cos  6  COS  ♦ 
d  p  p  J 


6^  =  tan 


-1 


sin  6 
<1  P 


2  2 

[1-2  cos  8  cos  4)  +  £  .  COS  6  ) 

d  p  p  d  p 


J72 


(LI) 


(L2) 
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For  Point  Q^; 


=  tan 


-1 


r  cos  sin  +  cos  sin 


cos  6j  cos  +  cos  9^  cos  41^ 


(L3) 


-1 


sin  9,  +  sin  e 
i  s 


c  '  7  '  — - - "~F/7~' 

[cos  9^  +  COS  85  +  2  cos  0^  cos  6^  cos 


(L4) 


At  the  point  of  relection  the  tilt  toward  the  east  is  given  by 


=  ^  -  ♦p 


(L5) 


and  the  tilt  toward  the  north  by 


n  p 


(L6) 


Since  <|i  and  9  are  orthogonal,  the  total  tilt  magnitude  is 


B  =  tan'^  [tan^  9  +  tan^ 


(L7) 


and  the  angle  of  incidence  is 


tan  ^  [tan^  (9^  -  0^)  +  tan^  (4^  -  41^)]^^^. 


(L8) 


In  Table  3-1  we  have  sumttarized  the  input  and  output  quantities, 
based  on  Levanon's  equations. 


3-3  REFLECTANCE  AND  EMISSIVITY 

3-3.1  The  Bidirectional  Reflectance-Distribution  Function  (BRDF) 

The  BRDF  is  defined  as 


-■0 


Table  3-1.  Input  and  output  quantities  for  reflection 
viewed  from  a  detector. 


Input  Quantities  (per  Levanon) 


Object 


Sun  subpoint  (S) 
Detector  subpoint  (V‘ 
Reflection  point  (P) 


East  Longitude  North  Latitude 


% 


P 


Intermediate  Output  Quantities 


Quantity 


Longitude  of  Q 
Latitude  of  Q,' 


Symbol 


Le-71b  Eg.  No. 

1 

2 


Longitude  of  Q 
Latitude  of  Q^ 

Eastward  tilt  at  P 
Northward  tilt  at  P 


5  (9)° 

6  (10)^ 


Final  Output  Quantities 


Quantity 


Symbol 


Tilt  magnitude  at  P 
Angle  of  incidence  at  P 


Le-71  Eg,  No. 

7  (ll)J 

8  (12) 


Values  relative  to  detector  subpoint  V 


For  small-angle  approximation,  which  we  do  not  use. 
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=  L/(E  cos  e.) 

where  L  is  the  radiance  along  the  reflected  ray  and  E  cos  is  the  irradiance 
on  the  (horizontal)  sea  surface.  By  using  the  Cox-Munk  formula.  Equation  (1), 
for  L/E,  we  have 


f 


r 


p(6 ) 


cos  u  cos  0  cos 


(7) 


(It  is  not  vobvious  that  Equation  (7)  satisfies  the  reciprocity  law,  since  6 
and  ID  have  a  very  complicated  dependence  on  the  coordinates.) 

3-3.2  The  Directional-Hemispherical  Reflectance 

The  directional-hemispherical  reflectance,  denoted  here  by  p(x;9^, 

2»),  is  defined  by  the  integral 

o(x;9p2ii)  =  y*f|.  cos  dflj.  (8) 

with  f^  given  by  Equation  (7);  it  is  understood  that 

u  5  cos  e^,  (9) 

Owing  to  the  complexity  of  the  dependence  of  u  and  B  on  9^,  we  assume  it  is 
impossible  to  perform  an  analytic  integration  indica'^ed  in  Equation  (8). 

For  now,  we  shall  not  pursue  further  the  topic  of  directional-hemis¬ 
pherical  reflectance  for  a  wind-ruffled  sea.  We  were  interested  in  it  mainly 
as  a  self-consistent  way  to  get  the  directional  emissivity,  but  we  shall  con¬ 
tent  ousel ves  with  an  approximate  treatment  as  next  described. 
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3-3.3  The  Directional  Emissivity 


Since  we  are  unable  to  perform  an  analytic  integration  of  the  BROF  to 
get  the  directional-hemispherical  reflectance  for  a  wind-ruffled  sea,  we  shall 
ignore  the  wind  and  compute  the  directional  emissivity  from  the  expression 
(sometimes  referred  to  as  Kirchhoff's  law) 


(10) 


where  p(0)  is  the  Fresnel  specular  reflectance  next  discussed  in  Section  3-3.4. 

We  note  that  Hall  [Ha-64b]  used  Equation  (10)  for  each  of  the  planes 
of  polarization  of  the  radiation  in  computing  the  polarized  emissivity  of 
(flat  and  calm)  water.  We  expect  that  Equation  (10)  will  provide  reasonable 
answers  even  for  a  wind- ruffled  sea  except  for  large  zenith  angles.  Perhaps 
one  can  later  make  an  improvement  for  such  large  zenith  angles.  Papers  by 
Saunders  [Sa-67a,  Sa-68c]  may  be  helpful. 

3-3.4  Fresnel  Reflectance  of  Water 

3-3.4. 1  Introduction 

The  factor  p(u)  in  the  Cox-Hunk  formula.  Equation  (1),  is  the  Fresnel 
specular  reflectance  of  water  for  unpolarized  radiation  incident  on  a  plane 
surface  at  angle  of  incidence  The  Solar  Radiation  Model  (23e),  described 
in  Section  4,  provides  (at  the  top  of  the  atmosphere).  Here,  we  present 
the  Fresnel  equations  necessary  to  compute  p(u)  and  necessary  data  for  the 
complex  index  of  refraction  for  an  air-water  interface. 

3-3. 4. 2  Formulas 

We  need  the  formula  for  the  reflectance  p(u)  of  a  plane  electro¬ 
magnetic  wave  incident  at  an  angle  9^  s  u  on  a  plane,  absorbing  surface 
(water).  For  an  unpolarized  wave,  and  a  complex  index  of  refraction  N, 
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N  =  n-ik.. 


(11) 


where  n  is  the  index  of  refraction,  k  is  the  extinction  coefficient,  and  i  = 
the  monochromatic  specular  reflectance  is  given  [He-60a,  p.422;  AH-66; 
SC-66a,  p.63]  by  the  expression 


where 


(IZ) 


r^  =  (c  -  2a^e  +  e^)/(c  +  2a+e  +  e^) 


(13a) 


r  2^2 

c  =  a^  +  a_ 


13b) 


d  =  sin  u)  tan  ->) 


e  =  cos  » 


(13c) 

(13d) 


2  a?  =  [(n^-k^-sin^a)^  +  t  (n^-k^-sin^..) 


(13e) 


At  normal  incidence. 


„I0)  .  *-4 

(n+l)^  + 


(14) 


We  chose  the  Fresnel  formulas  as  given  by  Equations  (12)  and  (13) 
because  (1)  the  form  is  the  simplest  we  have  seen  and  (2)  three  different 
references  agree  on  the  formulas.  (Note  that  Me-60a  uses  N=^n(l-ik)  instead  of 
N  =  n-ik.)  Relatively  simple,  but  different  formulas  are  given  by  Friedman 
[Fr-69b]  but  the  two  obvious  misprints  leaves  one  uncomfortable  without  verify¬ 
ing  the  overall  fc'm’ulas-  Hall  [Ha-64b]  also  gives  the  Fresnel  formulas  but 
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their  form  is  again  different  and  more  complicated  than  that  we  have  chosen. 
Other  references  include  Condon  and  Odishaw  [CO-58,  6-8,  ^-113,-114],  Stratton 
[St'41],  and  Born  and  Wolf  [BW-75a].  Boudreau  tBo-73b]  gives  the  Fresnel 
formulas  in  a  form  attributed  to  Stratton  [St-41]. 

3-3. 4. 3  Complex  Index  of  Refraction  of  Water 

The  roost  recent  values  of  optical  constants  for  (pure)  water  in  the 
infrared  are  those  given  by  Downing  and  Williams  [DW-75]  who  tabulate  n(v)  ana 
k(v),  the  real  and  imaginary  parts  of  the  complex  index  M  =  n  +  ik,  in  the 
range  from  x=2  ^m  to  x  =  1  am.  In  the  2-  to  5-um  range  of  interest  to  us,  221 
sets  of  data  are  given  for  wavenumbers  v=2000( 10 14000(50)5000,  entered  as  data 
statements  in  Subroutine  FRESNL. 

We  also  note  that  very  recently  Querry  et  a1 .  [QH-77]  determined  the 
complex  refractive  index  in  the  infrared  for  samples  of  surface  water  from 
five  widely  separate  locations;  San  Francisco  Bay,  the  Pacific  Ocean,  the 
Atlantic  Ocean,  the  Great  Salt  Lake  (Utah),  and  the  Dead  Sea  (Israel).  The 
variations  will  be  ignored  for  the  purposes  of  ROSCOE-IR. 

3-4  SLOPE -SHADOW  IMG  FACTOR 

Cox  and  Munk  [CM-55,  p.  70;  CM-56,  o.  470],  in  computing  the  albedo 
of  direct  sunlight  from  a  rough  surface,  take  account  of  the  fact  that  lai^ge 
negative  slopes  in  the  component  (where  the  y-azis  is  horizontally  away 
from  the  sun)  are  shadowed  if  they  exceed  cot  a.,  with  9.  the  solar  zenith 
angle.  Cox  and  Munk  include  this  effect  by  setting  the  limits  to  be  {-cot  9.) 
and  {+=”)  for  z  (but  for  z  ).  Thus,  while  Cox  and  Munk  include  the  effect 

J  ^ 

in  their  albedo  calculation,  they  do  not  mention  the  effect  with  respect  to 
the  slope  distribution  function  pis)  appearing  in  Equation  (1). 

Gordan  [Go-69b]  presents  a  formula,  derived  by  K.  B.  MacAdam,  for  the 
fraction  of  the  light  from  a  source  at  zenith  angle  9^  which  reaches  a  given 
point  on  the  sea  surface  without  having  first  intersected  the  water  surface  at 
some  other  point.  However,  in  presenting  his  formula,  Gordan  [&o-6'Tb,  p.2U] 
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fails  to  note  that  the  derivation  is  based  on  a  one-dimensional  distribution 
(instead  of  an  isotropic,  two-dimensional  distribution  as  we  would  like). 

Also,  Gordan  [Go-69b]  does  not  address  the  question  of  shadowing  effects  on 
the  reflected  ray. 

Saunders  rsa-67a,  Sa-68c]  has  derived  an  approximate,  slope-shadowi ng 
factor,  s*,  to  account  for  the  fact  that,  as  one  views  near  the  horizon,  the 
slopes  on  the  back  sides  of  the  waves  and  deep  in  the  troughs  are  hidden.  For 
two-dimensional  roughness,  the  factor  S*  is  stated  [Sa-67a,  p.  4643;  Sa-68c3 
to  be 


S*(0^)  =  2  {1  +  erf(v)  +  ^  e"''  (15a) 

where  v,  given  by 

V  =  a  ^  tan  (|  -  8^)  =  cot  Bj.,  (15b) 

is  the  ratio  of  the  inclination  of  the  line-of-sight  to  the  root-mean- square 
slope  (regardless  of  direction)  and  is  the  zenith  angle  of  the  reflected 
ray.  Presumably  S*(9^)  refers  to  only  the  reflected  ray  not  escaping  in  one 
pass. 


To  permit  a  "bistatic”  dependence  on  the  zenith  angles  of  both  the 
incoming  and  outgoing  rays,  we  propose  using  as  the  shadow  factor 


S(e..e^)  =  S(6^)  S(0^) 


(16) 


wi  th 


S(8)  =  2  {1  +  erflvl  +  -4= 

v/» 


(17a) 
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V  =  cot  e 


(17b) 


=  (6.12  X  10'^  .  (17c) 

For  numerical  reasons,  we  need  to  consider  some  limiting  cases: 

(a)  If  the  wind  speed  W  =  0,  we  set  S(e^,6^)  =  1.0. 

(b)  If  0  <  8v2  -  °s'^^’  introduc¬ 

tion  of  the  angle  results  from  the  observation  that  the 
shadowing  factor  is  essentially  unity  for  v  >  2.  Thus,  there  is 
no  need  to  compute  the  shadowing  factor  unless  6  exceeds  the 
angle  (0^2^  '^'2,  for  a  given  wind  speed. 

(c)  If  (0.5x-9)  <  1.745x10'^,  set  e  to  89.9  deg,  an  arbitrarily 
selected  value.  We  do  this  to  avoid  possible  division  by  zero 
or  near-'ero. 

3-5  SPECIAL  CASES 

3-5.1  Location  of  Specular  Point  for  Quiet  Surface  (no  wind)  on  Spherical 

Earth,  Given  Locations  of  Source  and  Detector 

Since  we  want  to  consider  cases  where  the  Earth-central  angle  between 
rays  to  the  sun  and  the  detector  is  not  necessarily  small,  we  cannot  use  the 
"lens"  equation  for  a  spherical  convex  mirror  (and  the  concomitant  paraxial 
rays)  to  aid  in  determining  the  reflection  point  but  must  resort  to  an  itera¬ 
tive  solution. 

3.5. 1.1  Algebraic  Equations  for  Specular  Point 

Assume  we  are  given  the  positions  (i.e.,  the  longitudes  and  latitudes 
of  the  subpoints)  of  the  detector  and  sun,  as  depicted  in  Figure  3-3  (Points 
V‘  and  S',  respectively).  The  total  central  angle  between  the  rays  DV  and  OS, 
1,  is  given  by 
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....  . ,  V. . 


Figure  3—3.  Sphclcal  geometry  for  determining  specular  (x>int. 


(19) 


and  for  each  triangle,  we  have 
=  V  By  ^  ^ 

+  3g  +  Y  =  ■"  • 

Thus,  ^rom  Equations  {20a)  and  20b),  we  have 


(20a) 

(20b) 


(21 ) 


Now, 


and 


r^  5  r  +  hv  =  r  cos  ^  cos  b„ 


(22a) 


r  ;  r  +  h.  =  r  -OS  a,,  +  s,  cos  e. 
s  S  S  S  3 


(22b) 


sin  a. 


(23a) 


sin  sin  y 


S- 

si  n  a. 


(.23h) 


SI  n  B  sin  Y 
s 


(In  the  code,  r  is  the  Earth  radius  plus  the  altitude  assigned  to  the  i^oint 
P.)  By  eliminating  s,^  between  Equations  (?2a)  and  (23a)  and  s^  between  equa¬ 
tions  (22b)  and  (23b),  we  get 


a-) 


(24a) 


or 


sin  a 

\  r  cos  +  r  cos 


sin  ot 

■5  =  “s  "  ®s 


-1  V 

%  "  ‘“v  "  T  "  “v  ^  Oy/tan  s^ 


-1  's  .  , 

Ej  =  p^  s  ~  =  cos  +  Sin  Qj/tan 


(24b) 


(24c) 


(24d) 


or 


(24ei 

(24f) 


Thus  we  have  four  equations  ((19),  (21),  (24e),  and  (24f))  which  need  to  be 
solved  for  the  four  unknowns  (a^,  a^,  B^,  and  6^). 

In  presenting  the  equations  for  the  specular  point  we  have  referred 
to  the  sun  as  the  source.  Indeed,  that  is  the  case  within  the  NBR  Module. 
However,  in  the  original  development  of  the  specular  point  equations,  we 
wanted  to  allow  for  non-solar  sources  at  arbitrary  altitudes,  for  which  our 
specular-point  equations  are  valid. 

If  one  does  specialize  for  a  solar  source,  then  one  can  obtain  (with 
an  appropriate  approximation)  a  pair  of  equations  (or,  equivalently,  a  single 
transcendental  equation  if  the  user  prefers)  instead  of  the  set  of  fou'  equa¬ 
tions.  That  is,  for  a  solar  source,  as  in  Section  5-2.2.!  where  we  obtain  the 


By  =  tan  ^  [e^  sin  <l"=y  cos  a^)  ^3 
B^  r.  tan  ^  [e^  sin  cos  a^)  . 
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solar  zem'td  angle,  we  can  assume  that  the  solar  ray  to  the  reflection  point 
is  essentially  parallel  to  the  ray  to  the  subsolar  point,  an  approximation 
implying  that  the  angle  8^  is  essentially  zero.  Thus,  in  equation  (21),  if  we 
set  Bg  equal  to  zero  and  eliminate  by  use  of  Equation  (19),  we  obtain 

=  (c  -  3^/2  .  (24g) 


Thus  we  have  two  equations  ((24e)  and  (24g))  which  need  to  be  solved  for  the 
two  unknowns  (a^  and  8^).  Of  course,  one  can  eliminate  between  these  two 
equations  if  he  prefers.  An  iterative  solution  of  the  pair  of  equations 
should  be  analogous  to  that  described  in  Section  3-5. 1.2,  but  we  have  not 
implemented  such  a  solution. 

3-5. 1.2  Iterative  Solution  of  Specular-Point  Equations 

By  using  Equations  (19),  (21),  (24e),  and  (24f),  we  find  the  condi¬ 
tion  to  be  satisfied  is 


F(a^)  =  a  -  2ay  +  tan' 


-  tan 


-1 


Ey  Sin  dy 


TTITcorTyj 


=  0  .  (25) 


Now, 


COS 


dF(d// 

V  1+e^  -  2t^  COS 


C  COS  d 

V  V 


1+E 


2c  cos  a 

V  V 


(26) 


According  to  the  Newt'' n-Saphson  method,  our  iteration  formula  is 


cl 

(n+1)  (n)  '^^“v  ’ 

%  =  %  '  p , ,  InT.  • 


(27) 
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It  remains  to  choose  a  starting  value,  used  in  Equation 

{27K  To  do  so,  we  start  with  Equation  (21)  and  substitute  for  and  6^ 
their  small-angle  approximations  from  Equations  (24el  and  (24f).  Thus  we  get 


a  + 

V 


a 


a  + 
V 


(28) 


By  solving  Equation  (28)  for  in  terms  of  a,  and  we  get 


1-e 


(1-cJ  +  (1-e^l 


Our  iterative  procedure  now  becomes 


(0)  . 


(i-c^)  rrrrr/ 


(0) 


(O’ 


Cj  =  O  -  ay 


8^*^^  =  From  Equation  (24e) 


B^^^  =  From  Equation  (24f) 


F(a^^^)  =  From  Equation  (25) 


in) 

FMiiy  ■)  =  From  Equation  (26) 


F( 

(1)  ,  (0) 

\  '  %  ■  TTTToT.- 

f  lay  I 


(29) 

{29a) 

(30a) 

(30b) 

{30c) 

(30d) 

(30e) 

(30f ) 
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1 1 ) 

We  now  put  into  Equation  (30a)  and  continue  the  looping  over 
Equations  (30)  until  we  satisfy  the  condition 

4"^  ^  4"'  -  ^“s"'  "  ^  ^  ^ 

3-5. 1.3  Angle  of  Incidence  and  Reflection 

From  Figure  3-4  and  Equation  (20a),  we  have 

UJ  =  »;-Y  -  (1^  +  ,  (32) 

with  and  given  by  the  iterative  solution  in  Section  3-5. 1.2. 

3-5. 1.4  Geographic  Coordinates  of  Specular  Point 

Oetenni nation  of  the  geographic  coordinates  of  the  specular  point, 
given  those  for  the  sun  and  detector  and  the  central  angles  a  and  a^,  is  pro¬ 
vided  by  Subroutine  GCRCLE,  discussed  in  Section  3-6.5. 

3.5-2  Radiance  and  BROF  for  Specular  Reflection  from  Smooth  Water 

To  obtain  the  radiance  for  specular  reflection  from  a  smooth  water 
surface,  one  car  I'ollow,  e.g.,  the  detailed  development  (given  for  another 
purpose)  by  Cox  and  Munk  [CM-54]  or  immediately  write  the  answer  by  assuming 
conservation  of  radiance  for  reflection  from  a  perfect  reflector.  For  the 
latter  alteriiative  we  ha^o  for  the  specular  ••aciiance 

'•spec  '  '»> 

wtiere  pin)  and  E  are  the  same  as  in  Equation  (1)  and  t  is  the  angular  rad-’us 
of  the  sun  '16.0  minutes). 


The  BRDF  corresponding  to  Equation  (33)  is  defined  to  be 


f 

r 


^spec^<“  «i> 


(34) 


so  that 


f 

r 


p(u)/(it 


2 


cos  9^)  . 


(34a) 


3-5.3  A  Limiting  Form  of  Basic  Cox-Munk  Formula 

The  Cox-Munk  basic  formula.  Equation  (1),  explicitly  including  the 
formula  for  the  probability  for  the  occurrence  of  slope  6,  is 


'CM 


.  o(a.) 


cos  u  cos^V 


2 

exp(-g  tan  b) 


(35) 


For  a  zenith  sun  and  downward-looking  detector,  the  slope  is  zero  and  the 
zenith  angle  of  the  reflected  ray  equals  the  angle  of  incidence,  i.e., 


e  -  0 

U  -  ui  -  0 , 


SO  that 


;.(□)  E 


.  Pb  , 


We  note  that  this  radiance  is  smaller  than  the  specul ar  value  given  by  Equa¬ 
tion  (33)  by  the  ratio 


Lc|^(t=0) 


1. 


spec 


ii7) 


since 


(4.65  X 

(3  +  5.12W)  X  10"^ 


«  1  . 


(38) 


The  ratio  given  by  Equation  (37)  will  be  obtained  in  another  way  in  Section 
3-5.4. 


3-5.4  Relation  Between  Radiances  from  Smooth-  and  Rough-Water  Surfaces 

Saunders  [Sa-67,  p.  4116]  makes  a  simple  estimate  of  the  radiance 
reflected  from  a  rough-water  surface  compared  with  that  from  a  smooth-water 
surface.  He  notes  that  the  angular  radius  of  the  glitter  pattern  is  approxi¬ 
mately  2a  (as  is  readily  seen  fran  Figure  3-5)  and  hence  the  solid  angle  it 
subtends  is  ii(2a)  ,  where  o  is  the  root-mean- square  slope.  The  solid  angle 
subtended  by  the  mirror  image  of  the  sun  is  [according  to  Saunders]  where 
E  is  the  angular  radius  of  the  sun's  disk.  (Saunders  did  not  account  for  the 
solid  angle  of  the  mirror  image  of  the  sun  being  reduced  for  an  observer  at 
high  altitudes,  as  explained  below.)  Saunders  then  states  that  if  the  total 
radiant  energy  reflected  from  the  surface  is  independent  of  roughness  (an 
assumption  commented  upon  below),  then  the  ratio  of  the  intensity  in  the 
glitte""  pattern  to  the  intensity  in  the  mirror  image  is  in  the  inverse  ratio 
of  the  solid  angles  that  they  subtend,  namely,  (c/to)  .  Mote  that  this  ratio 
is  just  the  ratio  given  by  Equation  (37). 

A  smooth-water  surface  on  the  spherical  Earth  acts  like  a  convex 

spherical  mirror  of  radius  R^.  The  virtual  image  of  the  sun  is  form.ed  at  a 

depth  R  /2  below  the  surface  and  the  size  of  the  sun's  radius  in  this  image  is 

2 

E  ^e/2.  The  area  of  the  virtual  image  is  «(c  R^.?)  and  the  solid  angle  at 
the  observer,  at  an  altitude  h  from  the  mirror  surface,  is 


(e  lp/2)^ 

fh  a 


R,/2  ! 

h  a  R,/2  I 


(39) 


Figure  3—5.  Geometry  for  simple  esiio^te  of  angular  radius 
of  glitter  pattern. 

for  h  *  0  (39a) 

I  {Sg/2fi)^  for  h  »  Rp/2  .  (39b) 

The  assumption  made  above  by  Saunders  -  that  the  total  radiant  energy 
reflected  from  the  surface  is  independent  of  the  roughness  -  is  adequate  for 
the  order-of*magni tude  estimate  being  made  but  it  is  not  strictly  correct. 

Cox  and  Munk  [CM-55,  Section  3;  CM-56]  show  that  the  elbeoo  of  a  rough  surface 
to  direct  sunlight  is  slightly  larger  at  high  sun  angles  and  substantially 
smaller  at  low  sun  angles  than  the  albedo  of  a  flat  surface. 
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SUBROUTINES  FOR  CHARACTERIZATION  OF  WATER  SURFACE 


The  relationship  between  the  routines  characterizing  a  water  surface 
and  Subroutine  ESURF  (for  non-water  surface  characterization)  is  shown  in 
Figure  2-12. 

3-6.1  Subroutine  GLITTR 

Subroutine  GLITTR  is  called  from  Subroutine  ESURF  when  the  line-of- 
sight  from  the  detector  (either  a  fictitious  one  at  Point  V  in  the  NBR  Module 
or,  more  generally,  a  real  detector  which  may  be  in  a  satellite)  intersects  a 
wind-ruffled  water  surface  prescribed  by  the  user.  Subroutine  GLITTR  provides 
(la)  the  bidirectional  reflectance-distribution  function  (BRDF)  for  the  wind- 
ruffled  water  surface  and  (lb)  the  directional  emissivity  of  a  smooth-water 
surface  as  an  approximation  to  that  for  the  wind-ruffled  water  surface  at  the 
intersection  (Point  P)  of  the  optical  1 ine-of-sight  from  the  detector  and,  if 
requested  (by  the  logical  variable  SPCULR  =  .TRUE,  in  the  argument  list),  (2) 
the  geographical  coordinates  of  the  point  on  an  assumed  smooth  horizontal 
surface  (taken  to  be  at  the  same  altitude  as  Point  P)  for  a  specular  reflec¬ 
tion  of  a  ray  from  the  source  to  the  detector.  Only  the  directional  emis- 
sivity  at  Point  Pis  provided  if  there  is  no  source. 

See  Table  3-2  for  a  summary  of  inputs  and  outputs  for  Subroutine 
GLITTR  and  Figure  3-6  for  a  chart  of  information  flow  within  Subroutine  GLITTR. 

3-6.2  Function  CANGLE 

Function  CANGLE  is  called  from  Subroutines  RINOUT  and  Gi  ITTR  to  com¬ 
pute  the  Earth-central  angle,  CANGLE,  between  two  central  rays  to  Points  Pi 
and  P2,  given  the  latitudes  and  longitudes  of  Points  PI  and  P2.  Application 
of  the  cosine  law  for  a  side  of  the  spherical  t’^iangle  Pl-N-P?  in  Figure 
gives  the  relation 


Table  3-2.  Input  and  output  variables  for  Subroutine  GLITTR. 


INPUT  VARIABLES 
Argument  List 
THETI  - 

WIND  - 
SPCULR  - 


ZLAM  - 
lOAY  - 

IF  IRES  - 


ESURFl  - 


TECTOR  Conrion 

DETALT,  - 

DETLAT, 

OETLON 


Zenith  angle  of  the  source  at  the  intersection  point  (?)  of 
the  1  ine-of-sight  from  the  detector  to  the  Earth's  water 
surface,  (radians) 

Wind  speed  at  41  feet  above  sea  level,  (meters/sec) 

Logical  variable. 

=  .TRUE.,  Compute  coordinates  of  specular  reflection  point 
for  an  assigned  smooth  surface. 

=  .FALSE.,  Do  not  compute  such  coordinates. 

Wavelength,  (,im) 

Index  for  diurnal  conditions  at  Point  P. 

=  0,  Solar  zenith  angle  >90  deg. 

=  1,  Solar  zenith  angle  ^90  deg. 

Flag  for  inclusion  of  fireballs  as  sources. 

=  0,  No  fireball  is  being  considered  (always  the  case  in 
the  NBR  Module). 

>  0,  Fireballs  are  being  considered  as  sources. 

Logical  variable. 

=  .TRUE.,  If  Subroutine  ESURF  is  called  for  the  first  time 
from  Subroutine  SURRAD  and  EPSD  is  wanted  as  an 
output  (always  the  case  in  the  NBR  Module). 

=  .r-ALSE.,  If  Subroutine  ESURF  is  not  being  called  for  the 
first  time  from  Subroutine  SURRAD  and  a  recom¬ 
putation  of  EPSD  is  not  needed. 


Detector  (at  Point  V)  altitude,  north  latitude,  and  east 
longitude,  (km,  radians,  radians) 

( conti nued) 
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Table  3-2.  Input  and  output  variables  for  Subroutine  GLITTR  (Cont'd). 


D£TZEi4  -  Detector  (at  PoiiitV)  zenith  angle  at  Point  P-  (radians) 

POSITN  Common 

POSALT, 

POSLAT , 

POSLON 

SOURCE  Coflmon 

SRCALT  -  Altitude  of  source,  if  not  the  sun.  (km) 

SRCLAT,  -  North  latitude  and  east  longitude  of  source  (sun  in  NBR 
SRCLON  Module,  o^  fireball,  more  generally),  (radians) 

SRCFLG  -  Flag  characterizing  source. 

=  1,  Sun  is  source  (always,  in  NBR  Module). 

=  2,  Fireball  is  source  (never,  in  NKl  Module). 

OUTPUT  VARIABLES 
Argument  l.i  st 

SFR  -  Siairectional  refl ectance-distribution.function  for  a  wind- 
ruffled  water  surface  at  Point  P.  (sr"'‘) 

EPSO  -  Directional  enissivity  (of  a  smooth-water  surface  as  an 

approximation  to  that  for  a  wind-ruffled  surface)  at  Point 
P  toward  the  detector  at  Point  V.  (dimensionless) 

POSITN  Comnon 

(This  output  obtains  only  if  SPCULR  =  .TRUE.) 

SPCLAT,  -  North  latitude  and  east  longitude  of  the  point  on  an  assumed 
SPCLON  horizontal  surface  for  a  specular  reflection  frcm  the 

source  to  the  detector  at  Point  V.  (radians) 


-  Altitude,  north  latitude,  and  east  longitude  of  intersection 
on  Earth's  surface  (Point  P)  of  1 ine-of-sight  from  detector 
(at  Point  V).  (km,  radians,  radians) 


Ru 


Figure  3—7.  Earth  geometry  used  in  deriving  formulas  for  Function 
CANGLE  and  Subroutirte  GCRCLE. 


COS  a 


12 


=  sin  6j  sin  +  cos  cos  cos 


or 

CANCLE  =  122 
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=  cos'^  [sin  PILAT  sin  P2LAT  +  cos  PILAT  ccs  P2LAT  cos  (P21.0N-P ILON ) ]  . 
See  Table  3-3  for  a  suimary  of  inputs  and  outputs  for  Function  CANGLE. 

Table  3-3.  Input  and  output  variables  for  Function  CANGLE. 


INPUT  VARIABLES 

Argument  List 

PILAT,  -  North  latitude  and  east  longitude  of  Point  Pi-  (radians) 
PI  LON 

P2LAT,  -  North  latitude  and  east  longitude  of  Point  Po-  (nadians) 
P2LQN 

OUTPUT  FUNCTION 

CANGLE  -  Earth-central  angle  between  rays  to  Points  Pj  and  P^. 

( radians) 


3-6.3  Function  ERF 

Function  ERF  is  the  error  function,  based  on  the  rational -approxi¬ 
mation  formula  {7.1.2.61  in  AS-64. 

3-6.4  Subroutine  FRESNL 

Fresnel  specular  reflectance  of  a  (smooth)  water  surface  is  discussed 
in  Section  3-3.4.  In  Subroutine  FRESNL,  the  cerplex  index  of  refraction  of 
water  as  given  by  Downing  and  Williams  L0W-7b]  is  stored  as  data  and  the  Fres¬ 
nel  reflectance  is  computed  from  Equations  (12)  through  (13e]  in  Section 
3-3.4.  Table  3-4  summarizes  the  inputs  and  outputs  for  Subroutine  FRESNL. 
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Table  3-4.  Input  and  output  variables  r  Subroutine  FRESNL. 


INPUT  VARIABLES 

Argument  List 

ZLAM  - 

Wavelength,  (urn) 

OMEGA  - 

Angle  of  incidence  (with  respect  to  normal  to  smooth  ele¬ 
ment  of  water  surface),  (radians) 

OUTPUT  VARIABLE 

Argument  List 

RHO  - 

Fresnel  nwnochromatic  reflectance  of  plane,  unpolarized 
electromagnetic  wave  incident  at  angle  u  on  plane,  ab¬ 
sorbing  surface  of  water  with  complex  index  of  refraction 
N=n-ik  obtained  from  Downing  and  Williams  [DW-75].  (di¬ 
mensionless) 

3-6.5  Subroutine  GCRCLE 

For  three  points  P^,  P2,  and  P^  on  a  great  circle.  Subroutine  GCRCLE 
cotTtputes  the  latitude  and  longitude  of  the  intermediate  point  P^,  given  the 
latitudes  and  longitudes  of  the  end  points  P^  and  P^,  the  central  angle 
between  the  central  rays  to  and  P^,  and  the  central  angle  between  the 
central  rays  to  P^  and  P^. 

Application  of  the  cosine  law  for  a  side  of  the  spherical  triangle 
Pl-N-Pj  in  Figure  3-7  gives  the  relation 

cos  (-^63)  =  cos  a^3  cos  *  sin  sin  cos  x 


or 


cos  A 


sin  0.^  -  cos  a^3  sin 
sin  aj3  cos  0^ 


94 


Similarly,  for  triangle  figure  3-7,  we  have 


cos  (-|-e2)  =  cos  0^2  “l2  ^ 

or 

sin  02  =  cos  a^2  ®1  ■*■  “i2  ®1  ^  ‘ 

^pplicdtion  of  the  sine  law  to  the  spherical  triangle  Pj-^i-P2  Figure  3-7 
gives 


sin  (-n^-  ♦jl 

,  sin  X 

sin  ^  j  2 

sin(|-a2 ) 

or 

sin 

=  sin  a^2  sin  x/cos  92. 

Thus, 

♦2  ■  ■*■  u 

X  SIGJiJd.o,  ♦j-itj)  . 

If 

1  ^  ■" . 

^2  ~  4*2  ”  ^42^4*2^  ^  SIGN(I.O,  ^3-^2 

If 

♦2  0.0, 

4*2  “  4*2  *  ' 

If 

<^2  ^  ’ 

^2  "*  4  2  ”  * 

See  Table  3-5  for  a  summary  of  the  inputs  and  outputs  for  Subroutine 

GCRCLE . 
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Table  3-5.  Input  and  output  variables  for  Subroutine  GCRCLE . 


INPUT  VARIABLES 
Argument  Li st 

PlLAT,  -  North  latitude  and  east  longitude  of  Point 
PI  LON 

PXAT,  -  North  latitude  and  east  longitude  of  Point  1 
P3L0N 

ALP13  -  Earth-central  angle  between  rays  to  Points  1 
( radians) 

ALPIZ  -  Earth-central  angle  between  rays  to  Point  P 
( radians) 

OUTPUT  VARIABLES 
Argument  list 

P2LAT,  -  North  latitude  and  east  longitude  of  Point  1 
P2L0N 


Qfi 


\ 


(radians) 
2-  (radians) 

1  ^3- 

and  , 

2'  (radians) 


SECTION  4 


SOLAR  RADIATION 


4-1  INTRODUCTION 

4-1.1  Requirements  for  the  Model 

Solar  radiation  must  be  modeled  because  it  is  a  source  of  sensor 
illumination,  and  atmospheric  and  fireball  species  excitation,  through  scatter¬ 
ing  and/or  reflection  from  the  Earth's  surface,  clouds,  aerosols,  and  dust, 
either  naturally  occurring  or  caused  by  the  fireball. 

4-1.2  Model  Function 

The  Solar  Radiation  Model  (23e)  consists  of  a  statement  of  the  solar 
spectral  irradiance,  at  the  top  of  the  Earth’s  atmosphere,  in  the  spectral 
range  from  2  to  5  um  (or  5000  to  2000  cm"M. 

4-2  DATA  BASE 

As  a  result  of  extensive  work  by  NASA  related  to  the  design  of  space 
vehicles,  an  engineering  standard  for  solar  irradiance  has  been  adopted  by  the 
American  Society  of  Testing  and  Materials  (ASTM)  [Th-74a,  Th-76].  We  have 
adopted  the  tabular  data  presentee  by  Thekaekara  [Th-74a].  Columns  1  and  2  in 
Table  4-1  present  data  abstracted  fora  Table  I  of  Th-74a  in  the  spectral  range 
from  2  to  5  ^Jm  at  0.1  um  intervals.  These  data  are  plotted  in  Figure  4-1  as 
the  circled  points  and  have  been  fitted  by  the  following  piecewi se-conti nuous 
power-law  expression: 
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Table  4-1.  Solar  spectral  irradiance  (2  to  5  ym) . 


> 

E  " 

E  ^ 

e/ 

E  " 

E  ' 

A 

A 

X 

.0 

'  ) 

w 

u 

Percent^ 

If'^'^  photon 

p^'jton 

10'^  W 

2 

2 

2 

2  -1 

2  -1 

-1 

ym 

m  um 

iti  uin 

Error 

cm  sec  ijm 

cm  sec  cm 

cm  cm 

cm 

2.0 

103 

104.62 

1.5 

10.4 

4.15 

41.2 

5000 

2.1 

90 

90.61 

0.7 

9.51 

4.20 

39.7 

4762 

2.2 

79 

79.00 

0.0 

8.75 

4.23 

38.2 

4545 

2.3 

69 

69.30 

0.4 

7.99 

4.23 

36.5 

4348 

2.4 

62 

61. 13 

-1.4 

7.49 

4.31 

35.7 

4167 

2.5 

55 

54.20 

-1.5 

6.92 

4.33 

34.4 

4000 

2.6 

48 

48.29 

0.6 

6.28 

4.25 

32.4 

3846 

2.7 

43 

43.20 

0.5 

5.34 

4.26 

31.3 

3704 

2.8 

39 

38.81 

-0.5 

5.50 

4.31 

30.6 

3571 

2.9 

35 

35.00 

0.0 

5.11 

4.30 

29.4 

3448 

3.0 

31 

29.90 

-3.7 

4.68 

4.21 

27.9 

3333 

3.1 

26.0 

25.67 

-1.3 

4.06 

3.90 

25.0 

3226 

3.2 

22.6 

22.15 

-2.0 

3.64 

3.73 

23.1 

3125 

3.3 

19.2 

19.19 

0.0 

3.19 

3.47 

20.9 

3030 

3.4 

16.6 

16.71 

0.6 

2.84 

3.28 

19.2 

2941 

3.5 

14.6 

14.60 

0.0 

2.57 

3.15 

17.9 

2857 

3.6 

13.5 

13.33 

-1.2 

2.45 

3.17 

17.5 

2778 

3.7 

12.3 

12.21 

-0.7 

2.29 

3.14 

16.8 

2703 

3.8 

11.1 

11.21 

0.9 

2.12 

3.07 

16.0 

2632 

3.9 

10.3 

10.31 

0.1 

2.02 

3.08 

15.7 

2564 

4.0 

9.5 

9.50 

0.0 

1.91 

3.06 

15.2 

2550 

( continued) 

98 


Table  4-1. 

Solar  spectral  irradiance  (2  to  5  pm) 

(Cont'dl. 

E  " 

X 

W 

E 

X 

W 

Percent^ 

E  ^ 

X 

10^^  photon 

E  " 

u) 

10^^  photon 

.  f 

L 

W 

10'^  w 

tiJ 

pm 

ym 

urn 

Error 

2 

cm  sec  pHi 

2  ^ 
cm  sec  cm 

cm^  cm‘^ 

cm  ^ 

4.1 

8.70 

8.58 

-1.4 

1.80 

3.02 

14,6 

2439 

4.2 

7.80 

7.77 

-0.4 

1.65 

2.91 

13.8 

2381 

4.3 

7.10 

7.05 

-0.7 

1.54 

2.84 

13.1 

2326 

4.4 

6.50 

6.42 

-1.3 

1.44 

2.79 

12.6 

2273 

4.6 

5.92 

5.85 

-1.2 

1.34 

2.72 

12.0 

2222 

4.6 

5.35 

5.34 

-0.1 

1.24 

2.62 

11.3 

2174 

4.7 

4.86 

4.89 

0.6 

1.15 

2.54 

10.7 

2128 

4.8 

4.47 

4.48 

0.3 

1.08 

2.49 

10.3 

2083 

4.9 

4.11 

4.12 

0.2 

1.01 

2.43 

9.87 

2041 

5.0 

3.79 

3.79 

0.0 

0.954 

2.38 

9.47 

2000 

^From 

Th-74a, 

Table  I 

. 

Computed  from  fit  function.  Equation  (1), 

'Percent  error  in  fit-function  values  with  respect  to  r,olumn-2  data, 
Computed  from  Equation  (4)  and  Column-2  data. 

a 

“Computed  from  Equation  (5)  and  Column-2  data. 

*^Computed  from  Equation  (6)  and  Column-Z  data. 
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Solar  Spectral  Irradianca,  W  m  ^  pm' 


Figure  4—1. 


Solar  spectral  irradiance  from  2  to  S  pm  (units  of 
W  m~2  ). 
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where 


E,  -,{\/2.2V 

C  ,  t- 


E^  9{x/2.9)' 


E^(W  m‘^  urn  ^)  = 


Tog  E^g  -  log  E2  2 
^  "  log  2 -  log  'J'-T" 

Tog  £35  -  log  Ep  , 


b  = 


log  3.b  -  log  2.9 


Tog  E.  n  -  Tog  E3  5 
^  -  Ug  A-O  --T3g-33 


d  = 


log  E^  Q  -  log  E^o 
log  5.0  -  log 


^2.2  = 


^2.9  ■ 


^3.5  = 


^4.0  " 


E5.O  =  3.79 


2.0  <  X  <  2.9 

2.9  <  X  <  3.5 


(la) 

(lb) 


3  5(w3.5)' 

3.5  <  X  <  4.0 

(Ic) 

,y>/4.0)'' 

4.0  <  X  £  5.0 

(Id) 

-  =  -  2.94693 

(2a) 

-  =  -  4.64938 

(2b) 

-  =  -  3.21819 

(2c) 

-  =  -  4.11809 

(2d) 

(5a) 

(3b) 

(3c) 

(3d) 

(3e) 
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Evaluation  of  the  fit  function  gives  the  values  and  percentage  errors  'n 
Columns  3  and  4  of  ^atale  4-1,  respectively. 

By  using  the  conversion  relations  derived  in  Section  4-4,  we  can 

2 

convert  the  units  of  the  soectral  irradiance  f’^om  E.iW/isn  um)  ]  to  E  [photon/ 

2  '  »  X 

(cm  sec  urn)!  by  writing 


E 

X 


photon 

2 

cm  sec  um 


X 


_«  photon 

(10~  /hc)x  W  sec 

(10^  cm/m)^ 


or 


r 

i 


r 


photon 

"2 

cm  sec  um 


t 


5.Q3404  X  X 


(4) 


The  product  he  is  expressed  in  units  of  J  cm  and  x  in  um.  Similarly,  we  can 
2  2-1 

convert  from  E  [W/lm  ym)]  to  E  [photon/(cm  sec  cm  )]  by  writing 

A  W 


photon 

W 

2  ■"  -1 

'  ^  X 

cm  sec  on 

m  um 

{10‘‘’/hc) 


(10  ctn/m)^ 


photon 
X  W  sec 

-i;  - 
10  X  cm  /um 


or 


photon 
cm  sec  cm 


5.03404  X  10 


10  ^3, 


n 

“2 — 
m  um 


(5) 


2  -  -  2-1 

■ie  can  convert  from  E  [W/(m  um)j  to  E  cm  )]  by  writing 

\  U; 


E 

w 

=  f 

W 

a) 

2  '  "E’T 

cm  cm 

m  um 

— ? - 2 - 3 — ^ n 

(10  cm/m)  10  X  cm  /uin 


102 


(6) 


*  r 

W _ 

=  12-8  E 

X 

T 

7T 

1 

cm 

cm 

n)  ■  jrn 

9  2  - 1  -  - 

The  quantities  E  [photon, '( cm"  Gee  ym)],  E  [photon/tcni  sec  cm  )j,  and  E  [W,' 
2  - 1  ^ 

(cm  cm  ]]  are  given  in  Columns  5,  6,  and  7  of  Table  4-1,  '•espectively ,  and 
are  plotted  in  Figures  4-2,  4-3,  and  4-4.  respectively- 

4-3  SUBROUT I'jE  SOLRAO 

For  Subroutine  SQLRAD,  see  Table  4-2  for  a  summary  of  tne  input  and 
output  variables  and  Figure  4-F  for  a  flow  chart. 

Table  4-2.  Input  id  output  variables  for  Subroutine  SOLRAO. 

INPUT  VARIABLES 

Argument  List 

<  -  Index  specifying  units  for  input  and  output 

(wavenumber  for  K-1,2.3,4 

B  * 

(Wavelength  (..ml  for  K=5,6,7,8 

ouTrvjT  variables 
Argument  List 

E  -  Solar  spectral  irraaiance  .at  the  top  of  the  Earth's  atmo- 
spnere,  in  units  of'- 


photons  cm  ^  sec  V/cm  ^ 

K 

-2  -1  -1 
photons  cn.  sec  urn 

f. 

=  2.6 

-2  ,  „-l 

W  cm  -  cm 

K 

=  3,7 

y  ir,-^  urn  ^ 

K 

=  4,3 
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The  circled  points  correspond  to  the  data  in  column  2  of  Table  4  -1  and  the  solid 
curve  to  the  fit  function. 


ujo  /  ^_3as  uoiond  'aoueipeji;  lejpads  Jeiog 
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Solar  Spectral  Irradiance,  ^0  ^  W  cm  ^  /  cm 


Figure  4—5.  Flow  chart  for  Subroutine  SOLRAD. 


4-4 


SOME  CONVERSION  RELATIONS 


Some  useful  conversion  relations  may  be  derived  as  follows: 

1.  Energy  photon'^  =  hv  =  =  hcw,  W  sec 

where  he  is  expressed  in  J  cm  and  u  in  inverse  centimeters.  If 
we  use  the  values  of  h  and  c  from  Cohen  and  Taylor  [CT-73b, 
Table  33.1  on  p.  717],  we  have 

he  =  X  10' - er.9  sec  ^  2,997924  x  10^*^  cm/sec 

10'  erg/J 

he  *  1.98648  X  10“^^  J  cm 
1/hc  =  5.Q3404  x  10^^  J"^  cm'^ 

A1  so , 


-1  4 

Energy  photon  =  10  hc/x,  W  sec 

where  x  is  in  micrometers;  thus, 

-4  -1 

1  Watt  =  10  x/hc,  photon  sec 

=  1/hcu),  photon  sec’^ 

2.  X  =  lo'^/o) 

Idx/dul  =  10^/i»^ 

-1  4  2 

micron  wavenumber  =  10  /u 
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SECTION  5 


EARTH  SURFACE  RADIANCE 

5-1  INTRODUCTION 

The  Earth  Surface  Radiance  Model  (23b)  provides  (essentially),  at  the 
Point  P  where  the  optical  1 ine-of-sight  from  the  detector  (which  is  fictitious 
in  the  NBR  Module)  at  Point  V  intersects  the  Earth's  surface,  the  upwelling 
spectral  radiance  directed  toward  the  detector.  The  model  provides  two  compo¬ 
nents  of  the  radiance;  (1)  thermal  radiation  emitted  at  Point  P  and  (2) 
source  radiation  reflected  at  Point  P.  In  the  NBR  Module,  the  only  source  is 
the  sun.  Reflected  sky  radiance  is  not  included. 

Strictly,  the  surface-reflected  source  radiation  is  actually  provided 
in  an  unattenuated  form  together  with  the  path  parameters  (areal  density  U  (cm 
at  STP)  and  the  product  UP  (atm  cm,  with  P  the  pressure))  integrated  along  the 
incoming  path  from  the  source.  These  parameters  are  required  as  input  to  a 
computation  of  the  molecular  absorption  over  the  total  two-leg  path.  The 
aerosol  transmittance  along  the  incoming  path  from  the  source  to  Point  P  is 
also  provided. 

The  principal  routine  in  the  Earth  Surface  Radiance  Model  is  Sub¬ 
routine  SURRAD  ( surface  radiance) ,  which  makes  a  number  of  calls  as  shown  in 
Figure  5-1.  Subroutine  S'JRRAD  is  discussed  in  Section  5-2,  Subroutine  RINOUT 
( ray-in-out)  computes  the  geometry  for  the  reflected  ray  and  is  discussed  in 
Section  5-3.  Subroutine  ESURF  has  been  discussed  in  Section  2-5  and  Sub¬ 
routine  SOLRAO  in  Section  4-3.  The  rest  of  the  routines  used  in  Model  23b, 
most  of  which  were  obtained  fro<n  other  organizations,  are  described  in  Section 
5-4. 

5-2  SUBROUTINE  SURRAD 

Table  5-1  summarizes  the  input  and  output  variables  fur  Subroutine 

SURRAD. 
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Figure  5--1.  Routines  called  directly  from  the  principal  routine  (SURRAD)  in  the  Earth  Surface 
Radiance  Model,  For  subsequent  calls,  see  Figure  7-1 . 


Ill 


Table  5-1.  Input  and  output  variables  for  Subroutine  SURRAD. 


INPUT  VARIABLES 


Argument  List 

lOETEC  -  Flag  for  nature  of  detector  location. 

=  I,  If  detector  is  at  a  satellite  position  (SATLAT , 

SATLON,  SATALT)  specified  in  SATELL  Common.  (This 
mode  is  not  used  in  the  NBR  Module. 1 

=  2.  If  detector  is  at  a  position  (DETLAT,  DETLON,  DETALT) 
specified  in  TECTOR  Common.  (This  latter  option  is 
used  when  Subroutine  SURRAD  is  called  from  Subroutine 
UPWELL  in  the  NKi  Module.) 

MSM  -  Index  for  category  of  surface  material  (see  Table  2-12  for 

Subroutine  ESURF). 

DO  -  Additional  descriptor  for  selected  surface  material  (see 

Table  2-12  for  Subroutine  ESURF). 

SPCULR  -  Logical  variable. 

=  .TRUE.,  Compute  coordinates  of  specular  reflection  point 
on  an  assumed  smooth  horizontal  water  surface. 

=  .FALSE.,  Do  not  compute  coordinates  of  specular 
reflection  point. 

(SPCULR  appears  in  SURRAD  only  to  be  passed  to  Subroutine 

ESURF.) 


lUP  -  Altitude-loop  index  in  Subroutine  UPWELL. 

UUP  -  Nadir-loop  index  in  Subroutine  UPWELL. 

KUP  -  Azimuth-loop  index  in  Subroutine  UPWELL. 

LUP  -  Wavenumber-loop  index  in  Subroutine  UPWELL. 

(Each  of  the  previous  four  indices  should  be  set  to  unity 
in  a  call  from  any  routine  other  than  Subroutine  UPWELL, 
which  would  be  a  use  outside  of  the  NBR  Module.) 

ZLAM  -  Wavelength.  ( um) 

( conti nued) 
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Table  5-1.  Input  and  output  variables  for  Subroutine  SURRAD  (Cont'd). 


IFIRES  - 


FIRBAL  Coirmon 

FBALTdK  - 
FBLATd), 
FBLONd  ), 
FBRINTd) 

POSITN  Common 

POSALT.  - 

POSLAT, 

POSLON 

C12ALT,  - 

C12LAT, 

C12L0N 


SATELL  Conmon 

SAT ALT,  - 

SATLAT, 

SATLON 

SOLARP  Common 

SOLLAT,  - 
SOLLON 

SOURCE  Common 


Flag  for  inclusion  of  fireballs  as  sources. 

=  0,  No  fireball  is  to  be  included  (always  true  in  N3R 
Module  where  Subroutine  SURRAD  is  called  from  Sub¬ 
routine  UPWELL) . 

>  0,  Fireballs  (IFIRES,  in  number)  are  to  be  included  with 
position  and  radiant  intensity  specified  in  FIRBAL 
Common . 

(not  used  in  NBR  Module) 

Fireball-I  altitude,  north  latitude,  east  longitude,  and 
spectral  radiant  intensity.  ^ 

[km,  radians,  radians,  W/(sr  cm  ■^] 


Altitude,  north  latitude,  and  east  longitude  of  Point  P  at 
which  1 ine-of-sight  from  (fictitious)  detector  at  Point  V 
intersects  Earth's  surface,  (km,  radians,  radians) 

Altitude,  north  latitude,  and  east  longitude  of  Point  C  at 
which  line-of-sight  (directed  toward  Point  P  from  fictitious 
detector  at  Point  V)  intersects  the  12 -km  altitude  surface, 
(km,  radians,  radians) 

(not  used  in  NBR  Module) 

Satellite-borne  detector  altitude,  north  latitude,  and  east 
longitude,  (km,  radians,  radians) 


Subsolar-point  north  latitude  and  east  longitude,  (radians) 


(The  variables  in  this  Common  are  returned  frofn  a  call  to  Subroutine 
RINOUT.  In  the  NBR  Module,  only  the  sun  is  used  as  a  source  for  Sub¬ 
routine  SURRAD.  Fireballs  are  never  used  in  the  NBR  Module  where 
Subroutine  SURRAD  is  called  from  Subroutine  UPWELL.) 


SRCZEN(l)  -  Zenith  angle  of  solar  ray  incoming  to  Point  P.  (radians) 

( continued) 
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Table  6-1.  Input  and  output  variables  for  Subroutine  5URRA0  (Cont'd). 


(The  following  two  arrays  are  not  used  in  the  U8R  Module;  L=1,IF1R£S) 

SRCZEN{L+1)  -  Zenith  angle  of  Fireball-L  ray  inconiing  to  Point  P. 

( radi ans) 

SRCSR(L+1)  -  Slant  range  from  Fireball-L  to  Point  ?.  (km) 

TECTOR  Conmon 

0F.TALT,  -  Altitude,  north  latitude,  and  east  longitude  of  fictitious 
DETLAT,  detector  at  Point  V.  (km,  radians,  radians) 

OETLON 

UPWELS  CofTTion 

NlfllAVE(M)  -  Mumber  of  wavenumbers  at  which  the  upwelling  spectral 
radiance  is  to  be  computed  for  broad-band  loop- index 
Ms J BAND. 

lOAYV  -  Index  for  diurnal  condition  at  Subpoint  V'. 

=  0,  Solar  zenith  angle  >  90  deg. 

=  1,  Solar  zenith  angle  £  90  deg. 

IKM  -  Index  for  number  of  altitudes  at  which  calculations  are 
made  when  clouds  are  included  (set  in  Subroutine  UPWELL). 

UPWELS 2  Ccximon 

J3AN01  -  Same  as  JBAND  in  Subrout'ne  SPViELL.  Index  for  list  of 
(broad)  wavelength  bands. 

Data  Statement 

NSPECS  -  Number  of  species  in  molecular  transmittance  model. 

NTEMP  -  Number  of  temperature  bins  in  molecular  transmittance  model. 


OUTPUT  VARIABLES 
Argument  List 

RAD(l)  -  Radiance  emitted  from  surface  material  at  Point  P  and 
directed  toward  detector  at  Point  V. 

[W/icm*^  sr  cm  ^  ] 

( conti nued) 
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Table  5-1.  Input  and  output  variables  for  Subroutine  SURRAD  (Cont'd). 


RAD(21  -  Radiance  of  solar  radiation  reflected  at  Point  P  (with 

incoming  ray  unattenuated)  and  directed  toward  detector  at 
Point  )i. 

[W/(cm‘^  sr  cm'^] 


For  L=1,IFIRES  (not  used  in  MBR  Module) 

RA0{L+2)  -  Radiance  of  FirebaH-L  radiation  reflected  at  Point  ?  (with 

incoTiing  ray  unattenuated)  ana  directed  toward  detector  at 
Point  V. 

[W/(cni  sr  cm"  3 

UPS(I,M,1),  -  Path  parameters  U  (areal  density)  and  UP  (product  of  J  and 

UPPS(I,N,1)  pressure  P)  for  temperature-index-1  and  species-N  along 

incoming  solar  path  to  Point  P  on  Earth's  surface.  Com¬ 
puted  only  for  LUP=1. 

(cm  at  STP,  atm-cm  at  STP) 

For  L=1,IFIRES  (not  used  in  NBR  Module) 


UPS(1,N,L+1), 

UPPS(I,N,L+1) 


Path  parameters  U  and  UP  along  path  from  Fireball -L  to 
Point  P  on  Earth's  surface.  Computed  only  for  H)P=1. 
(cm  at  STP,  atn)-cm  at  3TP) 


UCS(I,N),  -  Similar  to  UPS(I,N,1)  and  UPPS  (I,>i.l)  except  Point  P  is 
UPCSd.N)  replaced  by  Point  C. 


AIRSOL  Conmon 


For  LUP=l.NWAVZ(JBAdD) 

TASP(LUP),  -  Aerosol  transmittances  for  incoming  solar  rays  to  Point  P 
TASC(LUP)  on  Earth's  surface  and  Point  C  at  12 -km  altitude.  (Depend 

only  on  wavelength  and  assumed  single  paths.) 

For  L=1,IFIRES  (not  used  in  NBR  Module) 

TAFP(L)  -  Aerosol  transmittance  for  incoming  ray  from  Fireball-L  to 
Point  P  on  Earth's  surface. 


SOLARP  Coninon 


For  LL=1,NWAVZ (JBAND) 

SOLIRR(LL)  -  Solar  spectral  irradiance  at  the  top  of  the  atmosphere  at 
wavenumber- index  LL. 

[W/(cm'^  cm"‘] 
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The  calcul ational  steps  performed  in  Subroutine  SURRAD,  as  it  is  employed  in 
the  NBR  Module,  may  be  described  as  follows; 

A.  Preliminaries  (done  only  for  spectral  index  L=l) 

1.  Call  RINOUT  to  evaluate  geometry  for  solar  source,  surface 
point  (P),  and  fictitious  detector  at  Point  V.  Obtain  at 
Point  P: 

a.  Detector  zenith. 

b.  IDAY. 

c.  Source  zenith  (if  IOAY=l). 

d.  Detector  azimuth  (if  IDAY=1  and  MSM  >2K 

2.1  If  IDAYV=1  and  I0AY=1,  set  source  zenith  into  Tdl  and  detec¬ 
tor  azimuth  into  P5I  (if  MSM  >2). 

2.2  If  iOAYV^,  set  IDAY^). 

3.  Set  detector  zenith  into  THR. 

B.  Call  ESURF 

Obtain  surface  temperature  (TKS),  directional  emissivity  (EPSO), 
and  (if  1DAY=1)  bidirectional  reflectance-distribution  function 
(SFR).  If  sun  and  water  surface  are  present  and  if  SPCULR= 
•TRUE.,  also  get  solar  specular  reflection  point  on  assumed 
smooth  horizontal  water  surface. 

C.  Compute  surface  spectral  radiance  [RAD(l)]  by: 

1.  Call  PLANCK  (only  for  1=J=K=1). 

2.  Evaluate  RAD(l)  =  EPSD  x  PLANCK (TKS ,>/) . 

D.  Compute  (unattenuated)  surface- ref  1  ec ted  solar  radiance  [RAD{2)] 
by; 

1.  Call  SOLRAD  to  get  solar  irradiance  [SOLIRR(L)]  at  top  of 
the  atmosphere  (only  for  I=J=K=1). 

2.  Evaluate  RAD(2)  =  SFR  x  SOLlRRlL)  x  cos  (THI). 

E.  Get  path  parameters  (species  areal  density  J  (cm  ac  STP)  ana  the 
product  UP  (with  P  the  pressure,  atm-cm) )  for  ray  SP  from  sun  to 
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Point  P.  Assume  path  parat^ieters  are  independent  of  latitude  and 
longitude  of  P;  therefore,  do  only  for  l=0=K=L-l.  Also  get 
aerosol  transmittance  from  S  to  P,  TASPiLl,  only  for  I=J=K=1. 

1.  Call  GEOXYZ  (Point  P, 

2.  Call  GtOXYZ  (Point  S,  5) 

3.  Call  STEPS  (?. 

4.  Loop  over  path  segments  with  calls  to  PATH,  AEROSOL,  and 

ACCUM. 

5.  Preserve  U(I,N,2)  and  UP(!,M,2)  arrays  as  'JPSd.N.D  and 
JPPSd.N,!)  arrays. 

F.  Get  path  parameters  for  ray  SC  from  sun  to  Point  C.  (This  step 
is  included  only  if  natural  clouds  are  included  in  the  calcula¬ 
tion.  While  clouds  are  not  strictly  an  Earth-surface  feature, 
the  treatment  of  them  is  analogous  to  that  for  Point  P  and  thus 
is  appropr i ately  described  here.)  Assume  path  parameters  are 
independent  of  latitude  and  longitude  of  C;  therefore,  do  only 
for  IKM=k]  =K 'L=l .  Also  get  aerosol  transmittance  from  S  to  C, 
TASC(L),  only  for  IKM=v)-IC  =  l. 

1.  Call  GEOXYZ  (Point  C,  C). 

2.  Call  STEPS  (C,  S,...). 

3.  Loop  over  path  segments  with  calls  to  PATH,  AEROSOL,  and 
ACCUM. 

4.  Preserve  Ud,N,2)  and  UP(I,H,2)  arrays  as  UCSd,N)  and 
UPCS(1,^^)  arrays. 

5-3  SUBROUTINE  RINOJT 

5-3.1  Purpose 

Subroutine  RINOJT,  given  the  geographic  locations  of  the  source  (sun 
and/or  fireballs),  the  detector,  and  the  position  P  of  the  intersection  of  the 
1 i nc-of- sight  from  the  detector  to  the  Earth's  surface,  computes  the  zenith 
angle  (and,  for  fireballs,  slant  range  (hut  not  in  NBR  Module))  of  the  source 
from  P  and  the  direction  of  the  ray  from  P  toward  the  detector  in  terms  of  the 
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zenith  angle  of  the  detector  and  (if  the  surface  is  not  Lambertian  (l-lAT^l)  or 
water  (MAT =2))  the  absolute  value  of  the  azimuth  angle  of  scatter  with  respect 
to  the  principal  plane  containing  the  incoming  ray. 

See  Table  5-2  for  a  summary  of  the  input  anu  output  variables  fcr 
Subroutine  RINOUT  and  Figure  5-2  for  a  flow  chart. 

5-3,2  Derivations 

5-3.2. 1  Zenith  Angle  of  Sun 

_5 

Since  the  Earth's  radius  subtends  a  maximum  angle  of  about  4.2  x  10 
radians  at  the  sun,  it  is  a  good  approximation  to  assume  that  the  solar  ray  to 
Point  P  is  essentially  parallel  to  the  ray  to  the  subsolar  point.  Thus  the 
great  circle  arc  from  Point  ?  to  the  subsolar  point  is  essentially  the  solar 
zenith  angle,  5.,  at  Point  P.  This  angle  is  obtained  by  applying  the 

cosine  law  for  sides  to  an  oblique  spherical  triangle,  with  the  result 

cos  e.  =  sin  sin  +  cos  Sp  cos  cos  (1) 

where  Sp  and  ip  are  the  north  latitude  and  east  longitude  of  Point  ^  and 
and  are  the  corresponding  quantities  for  the  subsolar  point.  This  formula 
is  the  same,  of  course,  as  that  evaluated  in  Subroutine  S3LZl‘;  ['''olune  14a-l, 
HS-79],  but  we  do  not  use  that  routine  here  because  it  receives  its  input  for 
Point  P  from  /TIME/,  which  is  inappropriate  m  the  present  context. 

5-3. 2. 2  Zenith  Angle  of  Detector 

The  approximation  made  in  deriving  the  solar  zenith  angle  is  inade¬ 
quate  to  use  for  the  zenith  angle  of  a  low-altitude  detector,  as  shown  in 
Figure  5-3.  Here,  tne  zenith  angle  is 
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Table  5-2.  Input  and  output  variables  for  Subroutine  RIMOUT. 


INPUT  VARIABLES 
Argument  List 

MAT  -  Index  for  category  of  surface  material  (see  Table  2-12  for 
Subroutine  ESURF). 

IFIRE  -  Number  of  fireballs  to  be  considered  as  sources  (always 
zero  in  NBR  Module). 

FIRBAL  Common  (not  used  in  NBR  Module) 

For  L  =  l, IFIRE 

FBALT(L),  -  Altitude,  north  latitude,  east  longitude,  and  radiant 
FBLAT(L),  intensity  of  Fireball-L. 

FBLQN(L),  (km,  radians,  radians,  W/sec) 

FBRINT(L) 

POSITN  Common 

POSALT,  -  Altitude,  north  latitude,  and  east  longitude  of  intersection 
POSLAT,  (Point  P)  of  1 ine-of-sight  from  detector  (at  Point  V)  to 
POSLON  Earth's  surface. 

(km,  radians,  radians) 

SOLARP  Common 

SOLLAT,  -  North  latitude  and  east  longitude  of  subsolar  point. 

SOLLON  (radians) 

TECTOR  Common 

DZTALT,  -  Altitude,  north  latitude,  and  east  longitude  of  detector 
OETLAT,  at  Point  V.  (km,  radians,  radians) 

detlon 


OUTPUT  VARIABLES 
Argument  List 

IDAY  -  Index  For  diurnal  condition  at  Point  P. 

==  0,  Solar  zenith  angle  >  90  deg. 

=  1,  Solar  zenith  angle  £  90  deg. 

( continued] 


119 


Table  5-2,  Input  and  output  variables  for  Subroutine  RINOUT  (Cont'd). 


SOURCE  Conition 

SRCZEN(l)  -  Zenith  angle  of  solar  ray  incoming  to  Point  P  on  Earth's 
surface,  (radians) 

For  L=l, IFIRE  (not  used  in  NBR  Module) 

SRCZEN(L+1),  -  Zenith  angle  and  slant  range  of  Fireball-L  ray  incoming 
SRCSR(L+1)  to  Point  P  on  Earth's  surface,  (radians,  km) 


TECTOR  Ccnmon 
DETZEN  - 


OETAZKl)  - 


Zenith  angle  of  ray  reflected  at  Point  P  on  Earth's  surface 
toward  the  detector  at  Point  V.  (radians) 

Absolute  value  of  azimuth  angle  of  reflected  ray,  measured 
from  principal  plane  determined  by  vertical  plane  through 
incoming  solar  ray.  (radians) 


For  L=l, IFIRE  (not  used  in  NBR  Module) 

DETAZI(L+1)  -  Absolute  value  of  azimuth  angle  of  reflected  ray,  measure  t 
from  principal  plane  determined  by  vertical  plane  through 
incoming  ray  from  Fireball-L.  (radians) 


where  the  Earth-central  angle  is  obtained  from  a  call  to  Subroutine  CANGLE 
(see  Table  3-3  for  Subroutine  CANGLE).  Thus  we  need  B. 


Rg  =  Earth' s  radius 
hp  =  Altitude  of  Point  P 
hj  =  Altitude  of  Point  V, 


t>  =  P-„  +  h„ 

e  p 

c  =  R^  +  h^  . 
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Figure  5-2.  Flow  chart  for  Subroutine  RINOUT.  For  completeness,  diagram  includes  calculation  for 
fireball  as  source,  a  condition  outside  the  NBR  Module. 


becomes 


tan 


1 

7 


(t-s) 


(n-a) 


(7a) 


or 


T-S  =  2  tan 


=  t 


‘-d 


(''b^ 


By  subtracting  F.quation  (7b)  from  Equation  (5),  we  have  the  needed  B, 

S  =  (7r-a.C^)/2  ,  (8) 

to  use  in  Equation  (2)  for  the  detector's  zenith  angle  at  Point  P. 

5-3. 2. 3  Azimuth  Angle  of  Reflected  Ray 

We  want  to  compute  the  azimuth  angle  i*  shown  in  Figure  5-4.  For 
simplicity  in  the  formulas,  we  drop  the  primes  from  the  subpoints  V  and  S'. 

Our  derivation  (which  may  not  be  the  simplest)  requires  solving,  in  turn, 
triangles  P-N-S,  Q-N-S,  P-Q-N,  and  P-V-Q.  The  numbers  on  the  various  sides 
and  angles  indicate  the  sequence  of  solution. 

A.  For  later  use,  note  that  NP  and  NS  are  known,  since 

NP  =  9  (9a) 

P 

NS  =  0  .  (9b) 

s 

Def i ne 

PNS,  =  U  1  (10a) 

t  '  s  p' 
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Figure  5—4.  Geometry  for  azimuth  angle  of  reflected  ray. 


ONS^  = 

(10b) 

QNP^  = 

(10c) 

1Z4 


B.  For  triangle  P-N-S , 


PNS  = 


PNS^ 

if 

PNS^  <11 

2ir-PNS^ 

if 

PNS^ 

:ii) 


PS  =  CANGLE(ep.  ♦p,  e^. 


(121 


where  CANGLE  is  the  function  routine  described  in  Section  3-6.2  Erom  the  law 
of  sines, 


sin  QSM  =  sin  PSN  =  sin  HP  sin  PMS/sin  PS 
QSfl  =  sin“^  (sin  QSN) . 


(13ai 

(13b) 


To  determine  the  proper  quadrant  for  QSM,  we  consider  the  consequence 
of  PSN  equaling  90°;  i.e.,  by  applying  the  law  of  cosines  for  sides  to  tri- 
angl e  P-S-N ,  we  have 


cos  NP  =  cos  PS  cos  NS  +  sin  PS  sin  NS  cos  QSN 


cos  NP|^  =  cos  PS  cos  NS. 


(14a) 

(14b) 


ff  N?  >  NPp,  then  QSN  >  90°;  i.e.,  if  cos  NP  <  cos  NPr .  then  QSN  >  90°.  Thus. 


QSNp  if  cos  NP  ^  cos  NP^ 


QSN  = 


I- 


(15) 


QSNp  if  cos  NP  <  cos  NPp 


-1 


where  the  subscript  P  denotes  the  principal  value  of  sin  ,  as  returned  by  the 

computer . 
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C.  For  triangle  Q-M-S, 

I  QNS^  if  <  it 

QMS  =  }  (16) 

(  2it-QNS^  if  QNS^  n  . 

By  applying  the  law  of  cosines  for  angles  to  triangle  Q-M-S,  we  have 

SQN  =  cos  ^  (cos  QMS  cos  QSM  +  sin  QMS  sin  QSN  cos  MS)  .  (17) 

By  applying  the  law  of  sines  to  triangle  Q-M-S,  we  have 

QM  =  sin"^  (sin  QSN  sin  NS/sIn  SQN).  (18) 

To  determine  the  proper  quadrant  for  QM,  we  consider  the  consequence 
of  QN  equaling  90°;  i.e,,  by  applying  the  law  of  cosines  for  angles  to  tri¬ 
angle  Q-M-S ,  we  have 

cos  QSN  =  -cos  SQM  cos  QMS  +  sin  SQM  sin  QMS  cos  QN .  (19a) 

For  QN  =  90°,  we  have 

cos  QSNj^  =  -  cos  SQr)  CCS  QMS.  (19b) 

Now,  SQN  _<  It;  therefore,  sin  SQN  ^  0.  For  daylight  conditions  at  the  detec¬ 
tor,  QMS  £  ti/2;  therefore,  sin  QMS  ^0,  Thus,  the  second  term  in  (19a)  is 
always  positive  for  QN  <  90°.  Thus 

(  QMp  if  cos  QSM  ^  cos  QSNp 

QN  -  '  (20) 

(  ’•-QMp  if  cos  QSN  <  cos  QSNp. 


126 


0. 


For  triangle  P-Q-M , 


I  QNP^  if  QflPt 
Q^P  =  J 

I  2^-QNPt  if  ”  * 

By  applying  the  law  of  sines,  we  have 

sin  QP  =  sin  QIIP  sin  NP/sin  SQN 


(21) 


(22a) 


or 


cos  QP  =  ( l-sin  QP )  > 

a  quantity  we  will  need  later. 

E.  For  triangle  P-A-Q,  by  applying  the  law  of  sines,  we  have 
=  sin*^  (sin  VQ  sin  VQP/sin  VP) 
where  VQ  is  evaluated  by  noting,  for  the  arc  V-Q-M,  that 

VQ  =  I  -  (e^  +  QM) 
sin  VQ  =  cos  (®j  Qtl)  ; 


(22b) 


(23) 


[24a) 

(24b) 


where  VQP  is  evaluated  by  noting  that 

(25a) 

VQP  =  r  -  SQN 

(25b) 

sin  VQP  =  sin  SQN  ; 
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where  VP  is  evaluated  by  noting  that 


VP 


“d  ’  CAMGLE(0^,  4^,  0p,  ♦p). 


(26) 


Thus, 


4  =  sin'^  [cos  (e^  +  01)  sin  SQN/sin  a^] .  (27) 

To  determine  the  proper  quadrant  for  4,  we  consider  the  consequence 
of  4  equaling  90“;  i,e.,  by  applying  the  law  of  cosines  for  sides  to  triangle 
P-V-Q,  we  have 

cos  VQ  =  cos  VP  cos  QP  +  sin  VP  sin  QP  cos  v.  (28a) 


For  ♦  =  90‘, 

cos  VQj^  =  cos  VP  cos  QP 
=  cos  cos  QP. 

Thus, 

(ifp  if  cos  VQ  >_  cos  VQj^ 

4  = 

^n-*p  if  cos  VQ  <  cos  VQ|^. 

5-4  OTHER  ROUTINES  IN  EARTH  SURFACE  RADIANCE  MODEL 
5-4.1  SAI  Routines  (ESURF,  SOLRAD,  GEOXYZ) 


(28b) 

{28c) 


(29) 


Among  tne  routines  shown  in  Figure  5-1  to  be  directly  called  from 
Subroutine  SURRAD,  those  (besides  RINOUT)  that  have  been  prepared  oy  SAl  are 
ESIHF  (discussed  in  Section  2-5  and  its  related  water-surface  routines  in 
Section  3-6),  SOLRAO  (discussed  in  Section  4-3),  and  GEOXYZ. 
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Subroutine  GcOXYZ  converts  the  geographic  coordinates  of  a  point  (P) 
to  Earth-centered  Cartesian  coordinates.  Reference  to  Figure  5-5  aids  one  in 
writing  the  following  equations. 


RP 

=  RE  + 

PH 

(30) 

RPEQ 

=  RP  x 

cos  PLAT 

(31) 

RPX 

=  RPEQ 

X  cos  PLON 

(32) 

RPY 

=  RPEQ 

X  sin  PLON 

(33) 

RPZ 

=  RP  X 

sin  PLAT. 

(34) 

The  input  and  output  variables  are  surmiarized  in  Table  5-3. 

5-4.2  Vi  si  dyne,  Inc.  Routine  (AEROSOL) 

Subroutine  AEROSOL,  prepared  by  C.H.  Humphrey  et  al .  [Volume  25], 
computes  attenuation  coefficients  for  scattering  and  absorption  (and.  though 
not  used  in  the  HBR  Module,  the  asymmetry  factor  (average  cos  in?  of  the 
scattering  angle))  due  to  atmospheric  aerosols,  given  the  altitude  and  wave¬ 
length,  Table  5-4  summarizes  the  inputs  and  outputs  for  Subroutine  AEROSOL, 

5-4,3  G.E.  Tempo  Routines  lACCUM,  DOT,  FRAC,  FATH,  PLANCK,  SEGMENT,  STEP, 

STEPS,  SUBVEC,  UKITV,  VLIN,  XMIT) 

Among  the  routines  shown  in  Figure  5-1  to  be  directly  called  from 
Subroutine  SURRAD,  those  that  have  been  prepared  by  G.E.  Tempo  are  Function 
PLANCK,  Subroutine  VLIN,  Subroutine  STEPS  (and  its  auxiliary  routines  SUBVEC, 
VLIN,  DOT,  UNITV,  STEP,  and  FRAC),  Subroutine  PATH  (and  its  auxiliary  routines 
XMIT  and  SEGMENT),  and  Subroutine  ACCUM.  A  brief  description  of  the  purpose 
of  each  of  these  routines  is  included  in  Table  7-3a  which  summarizes  all  the 
routines  in  the  NBR  Module.  For  the  longer  and  more  important  routines  we 
have  Summarized  their  inputs  and  output;  Subroutine  PATH  (Table  5-5),  Func¬ 
tion  PUNCK  (Table  5-6),  Suoroutine  SEGMENT  (Table  5-7),  Subroutine  STEP 
(Table  5-3),  and  Subroutine  STEPS  (Table  5-9).  Briefer  statements  -  but  in 
some  instances,  flow  charts  -  pertaining  to  these  routines  have  been  given  by 
Ewing  et  al .  in  Volume  31  (PATH,  p.  62;  PLANCK,  p.  63;  SEGMENT,  p.  66  with 
flow  chart  on  p.  67;  STEP,  p.  68,  with  flow  chart  on  p.  69;  STEPS,  p.  70). 
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NORTH 


Greenwich 


Figure  5—5.  Geometry  for  conversion  of  geogrspfnc  coo'-dinates  to  Earth  -centered 
Cartesian  coordinates. 
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Table  5-3.  Input  and  output  variables  for  Subroutine  GEOXYZ. 


INPUT  VARIABLES 

Argument  List 

PH,  - 
PLAT, 

PLOW 

Altitude,  north  latitude,  and  east  longitude  of  Point 
(kn,  radians,  radians) 

OUTPUT  VARIABLES 

Argument  List 

RPX,  - 

RPY, 

RPZ 

Earth-centered  Cartesian  coordinates  X,  ,  and  Z  of  Point  p. 

{ km) 

Table  5-4 

.  Input  and  output  variables  for  Subroutine  AEROSOL. 

INPUT  VARIABLES 

Argument  Li  St 

HCM  -  Altitude  above  sea  level,  (cm) 

LAMDA  -  Wavelength,  (um) 

AEROK  Conmon 

c 

KVIS  -  Visibility  range  oarameter  (VR)  for  0  ^  4CM  9  x  13" 


cm. 


1. 

VR 

=  so 

km 

2, 

VR 

=  23 

km 

3, 

VR 

=  10 

km 

VR 

=  5 

km 

5, 

VR 

=  2 

km 

KTYPE 


Terrain  parameter  for  0  £  HCM  ^  2  x  10  cm. 

=  I,  Terrain  is  rural 

=  2,  Terrain  is  urban 

=  3,  Terrain  is  maritime. 


I  continued) 
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Table  5-4.  Input  and  output  variables  for  Subroutine  AEROSOL  (Cont'd). 


OUTPUT  VARIABLES 
Argument  List 

XKSCT,  -  Scattering  and  absorption  coefficients,  (cm  M 
XKABS 

08AR  -  Asymmetry  factor  (average  cosine  of  the  scattering  angle). 


Table  5-5.  Input  and  output  variables  for  Subroutine  PATH. 


IMPUT  VARIABLES 


Argument  List 


FIRST 


ISHELL(l), 

ISHELL(2) 

OS 


XFRACS(l), 

XFRACS(2) 


Logical  variable  serving  as  initialization  switch. 

=  .TRUE.,  ^r  fir|t  call  (i.e.,  corresponding  to  path  from 
^  to  ^  in  Subroutine  TRNSCO j. 

=  .FALSE.,  For  subseq^nt  calls  (i.e.,  corresponding  to 
path  from  ^  to  r5  in  Subroutine  TRNSCO). 

IMDXd)  and  IN0X(I+1)  in  calls  from  Subroutines  TRNSCO  and 
SURRAD. 

OSd-t-l)  in  calls  from  Subroutines  TRNSCO  and  SURRAO. 

Note;  It  is  always  true  that  DS(l)  =  0.0  and  OSiNC+l)  = 
-1.0,  v4iere  NC  is  the  number  of  path  segments  plus  one. 
Subroutine  ATWIAO  will  not  be  called  from  Subroutine  TRNSCO 
with  I=NC. 


XFRACSd)  and  XFRACSd  +  1)  in  calls  from  Subroutine  TRM;>C0 
and  SURRAD. 

Notes;  (1)  Do  not  confuse  this  array  XFRACS  (dimensioned 
Z)  with  the  array  XFRACS  (dimensioned  100)  in 
Subroutines  STEP,  STEPS,  and  TRNSCO. 


(2)  For  meaning  of  XFRACSd),  see  Table  6-9  for 
Subroutine  ATMRAD. 


(continued) 


Table  5-5.  Input  and  output  variables  for  Subroutine  PATH  (Cont'd). 


XYZCOM  Conmon 

NS  - 

Number  of  altitude  boundaries  set  in  Subroutine  SHELLS. 

For  J=1,NS;  N=1.1Q 

TS(J),  - 
P5(J) , 
XNSPECIJ.N) 

Temperature,  pressure,  and  snecies-N  density  at  altitude 
boundary  J.  3 

(deg  K,  atm,  1/cm  ) 

OUTPUT  VARIABLES 

XYZCOM  Conwnon 

For  1=1,2  (adequate  for  ambient  atmosphere);  N=l,10 

U(I,N,2),  -  Cumulative  value  of  path  pat ameters  U  (species-N  areal 

UP(I,N,2)  density)  and  UP  (product  of  U  and  pressure  P)  for  temper¬ 

ature-index  I  and  species-N  at  end  of  line  segment  DS(J+1). 
(cm  at  STP,  atn-cm  at  STP) 

Table  5-( 

).  Input  and  output  variables  for  Function  PLANCK. 

INPUT  variables 

Argument  List 

T  - 
W 

Temperatuie.  (degK) 

Wavenumoer.  (l/cm) 

Oata  Statements 

C  - 
H  - 
CHK  - 

Velocity  of  light,  (cm/sec) 

Planck's  constant.  (3  'ec) 

C  X  K/K,  where  K.  is  Boltzmann';,  constant,  (cm  deg-K) 

OUTPUT  VARIABLES 

Function 

PLANCK  - 

2  -1 

Spectral  radiance.  [W/(cm  s*'  cm'  )] 
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TaLle  5-7. 


nput  and  output  variables  for  Subroutine  SEGMENT. 


INPUT  VAPIABLES 

Argunient  List 

NSPEC  -  Number  of  species  (lU)  in  the  molecular  transmittance 

model.  These  species  are  identified  comments  in  Table 
7-9  for  Subroutine  SHELLS. 

XI  -  Distance  along  line  segment;  set  as  0.0  in  call  from  sub¬ 
routine  PATH. 


For  N  =  1 , NS PEC 


NSl(N),  -  Array  of  species  concentrations,  pressure,  and  temperature 
PI,  at  start  of  line  segment;  set  in  call  from  PATH  as  XNJl(lO), 
T1  PSLl,  and  TSLl.  (1/cm'^,  atm,  deg  K) 


X2 


NS2(N), 

P2, 

T2 


XY  Coitinon 


Length  of  line  segment;  set  as  DS  in  call  from  Subroutine 
PATH,  (cm) 

Array  of  species  concentations,  pressure,  and  temperature 
at  end  of  line  segment;  set  in  call  from  Subroutine  PATH  as 
XNS2(10),  PSL2,  and  TSL2.  (l/cm  ,  atm.  deg  K) 


For  I  =  1,10 

TT(I)  -  Temperature  array  used  for  band-model  parameters,  (deg  K) 


OUTPUT  VARIABLES 
Argument  List 
For  1=1,10;  N=1,10 

DU(I,N),  -  Incremental  path  integrals  U  (areal  density)  and  UP  (product 
DUP(I,N)  of  U  and  pressure  P)  for  path  segment  DS,  temperature-I , 

and  species-N.  (cm  at  STP,  atm-cm  at  STP) 
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Table  5-8.  Input  and  output  variables  for  Subroutine  STEP. 


IMPUT  VARIABLES 


Argument  List 

RX  -  Location  vector  to  one  end  of  transmission  path,  typically 
but  not  necessarily  at  the  detector,  (cm) 


SHAT  -  Unit  vector  along  the  transmission  path  from  RY  to  RX.  (cm) 

DIST  -  Magnitude  of  distance  along  transmission  path  from  RY  to 
(cm) 

UC  -  Initialization  value.  Normally  set  to  0  and  leads  to  DS(1) 
being  set  to  0.0. 


XYZCOM  Common 


NS  -  Number  of  shell  boundaries  in  atmospheric  transmission 
model . 

OUTPUT  VARIABLES 
Argument  List 

NC  -  Number^of  p^h  segments  plus  one  on  the  transmission  path 
from  RY  to  or  equivalently,  the  number  of  end  points. 

For  1  =  1, NC 

DS(I+1)  -  Length  of  line  segment  I  along  transmission  path,  (cm) 

Note;  It  is  always  true  that  DS(1)  =  0.0  and  DS(NC+1)  = 
-1.0.  (There  are  two  more  values  of  OS  than  there  are 
segments. ) 

XFRACS(I)  -  The  weight  associated  with  the  1th  end  point  appropriate 
for  finding  at  that  point  the  linearly-interpolated  value 
of  parameters  -  such  as  temperature  and  pressure  (or  even 
altitude)  -  which  are  specified  at  the  two  shell  boundaries 
adjacent  to  the  Ith  end  point. 


Note;  For  verification  of  this  interpretation,  see  the  usage  of 
XFRAC(l)  and  XFRAC(2)  in  Subroutine  ATMRAD  for  obtaining  altitude  and 
temperature  at  front  and  back  of  cell  DS.  The  same  conclusion  may  be 
drawn  fron  the  usage  of  XFRACS(l)  and  XFRACS(2)  in  Subroutine  PATH. 


(continued) 


135 


Table  5-8.  Input  and  output  variables  for  Subroutine  STEP  (Cont'd). 


It  is  useful  to  consider  a  hypothetical  example  with  HSHELL(I)  =  0.0, 
1.0,  2.0,  3.0  for  1=1, 2, 3, 4  and  45-degree  path  from  altitude  1.9  to  2.9 
km.  Then,  NC=3  and  we  have  the  following  values  for  the  arrays; 


I_ 

DS(1) 

XFRACS(l) 

INDX(I) 

1 

0.0 

0.1 

z 

2 

0.1414 

1.0 

3 

3 

1.2728 

0.9 

4 

4 

-1.0 

Not  defined 

0 

INDX(I)  -  Index  of  shell  boundary  at  or  just  before  the  start  of  the 
line  segment  I.  INDXINC)  will  be  the  index  of  the  shell 
boundary  just  after  the  last  endpoint. 

Note;  INDX(NC+1)  =  0. 


Table  5-9.  Input  and  output  variables  for  Subroutine  STEPS. 


INPUT  VARIABLES 
Argument  List 


RX  -  Location  vector  to  one  end  of  transmission  path,  typically 
but  not  necessarily  at  the  detector,  (cm) 

RV  -  Location  vector  to  one  end  of  transmission  path,  typically 
but  not  necessarily  at  the  scattering  or  source  point,  (cm) 

NC  -  Initialization  value.  Normally  set  to  0  and  leads  to  DS(1) 
being  set  to  0.0  in  Subroutine  STEP. 


OUTPUT  VARIABLES 

Internal  Use  (for  call  to  Subroutine  STEP) 

SHAT  -  Unit  vector  along  the  transmission  path  from  RY  to  RX.  (cm) 

OIST  -  l^gnitude  of  distance  along  transmission  path  from  RY  to 
RX.  (cm) 

( continued) 
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Table  5-9.  Input  and  output  variables  for  Subroutine  STEPS  (Cont'd). 


Argument  List 

The  following  quantities  are  obtained  by  a  call  to  Subroutine  STEP 
(see  Table  5-3  for  Subroutine  STEP);  NC,  DS,  XFRACS,  and  INDX. 
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SECTION  6 


UPWELLING  NATURAL  RADIATION 


6-1  INTRODUCTION 

6-1.1  Requirement 

The  Upwelling  Natural  Radiation  Model  {23C)  is  required  to  provide 
the  mean  upwelling  spectral  radiance  at  a  viewing  Point  V  at  any  altitude  in 
the  atmosphere,  with  account  of  the  effects  of  solar  radiation  reflected  from 
the  Earth  and  clouds,  emitted  radiation  from  the  Earth,  atmosphere,  and 
clouds,  and  attenuation  by  atmospheric  aerosols. 

6-1.2  Approach 

The  mean  upwelling  spectral  radiance  is  evaluated,  in  principle,  by 
averaging  the  upwelling  spectral  radiance  over  the  solid  angle  (.Tj)  defined  by 
the  cone  with  vertex  at  Point  V  and  tangent  to  the  Earth's  surface.  In  prac¬ 
tice,  we  average  the  set  of  spectral  radiances  received  by  a  (fictitious) 
detector  viewing,  from  Point  V,  a  set  of  characteristic  Points  P  on  the 
Earth's  surface  and  within  Oj. .  (For  now,  we  ignore  clouds.)  The  selection  of 
the  Points  P  is  done  by  first  dividing  ii-j-  into  a  number  of  regions  (N^  <  10) 
bounded  by  conmon- vertex  cones,  each  region  with  solid  angle  an  = 
each  region  we  determine  an  angle  B,  measured  from  the  nadir,  which  defines  a 
cone  that  bisects  an.  (For  brevity,  we  will  hereafter  let  the  phrase  'nadir 
angle'  mean  an  angle  measured  from  the  nadir,  just  as  'zenith  angle'  means  an 
angle  measured  from  the  zenith.)  For  daytime,  we  assume  synmetry  about  the 
vertical  (or  principal)  plane  passing  through  Point  V  and  the  sun.  The  region 
on  one  side  of  the  principal  plane  is  divided  into  a  number  of  sectors,  each 
with  angle  ('1^  £  6  for  day;  =  1  for  night  since  complete  azimuthal 

symmetry  then  obtains).  The  intersections  between  the  bisecting  cones  and  the 
planes  bisecting  the  sectors  are  a  set  of  Njj  x  N^  lines  which  intersect  the 
Earth's  surface  at  a  set  of  points  we  call  Points  P.  We  assume  the  upwelling 
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radiance  directed  from  a  Point  P  to  Point  V  is  representative  of  that  from  the 
entire  facet  associated  with  the  Point  P. 

In  the  absence  of  clouds,  we  model  the  upwelling  radiance  directed 
along  a  Path  PV  (i.e.,  from  Point  P  to  Point  Vl  by  including  contributions 
from  (1)  air  anission  between  Points  V  and  P,  (2)  surface  emission  at  Point  P, 
and  (3)  solar  radiation  reflected  from  the  surface  at  Point  P.  (Me  do  not 
include  air  emission  reflected  at  Point  P.)  Let  us  denote  such  radiance  as 

UPRADd  ,J  ,K,L) ,  with  I,J,K,  and  L  being  indices  for  altitude,  nadir  angle, 

azimuth  angle,  and  wavenumber,  respectively. 

To  obtain  a  mean  value  for  the  upwelling  radiance,  we  first  average 
UPRADd  ,J  ,K,L)  over  azimuth  angles  for  a  constant  nadir  angle  to  get 
UPRAOAd,J,L)  and  then  average  UPRADAd ,d ,L)  over  nadir  angles  to  get 
UPRAONd  ,L) .  Very  recently  this  last  array  has  been  extended  to 
UPRADM (I ,L ,JBAN0 )  to  provide  for  a  broad-band  spectral  index  JBAND. 

The  inclusion  of  natural  clouds  complicates  the  modeling.  Ho  attempt 
is  made  to  include  the  deterministic  cloud  submodel.  The  statistical  cloud 
submodel  is  included  only  for  altitudes  of  Point  V  equal  to  or  greater  than 

the  highest  altitude  (12  km)  of  a  cloud  top  i-  that  submodel.  The  general 

procedure  is  to  first  consider  a  given  altitude  ('ow  denote<^sby  index  IKM), 
nadir-J,  and  azimuth-tC,  just  as  with  no  clouds.  With  the  air  emission, 
ARCVA(1KM,J  ,L) ,  along  the  1 ine-of-sight  (LOS)  above  12-km  altitude  serving  as 
a  base  value,  we  obtain  a  distribution  function  for  the  additional  radiance 
corresponding  to  cl oud-free-LOS  (CFLOS)  and  cloudy-LOS  extending  below  12-km 
altitude.  Because  there  are  159  cloud  configurations  in  the  statistical  cloud 
model,  this  distribution  function  has  160  members  for  nighttime  and  161  mem¬ 
bers  for  daytime; 

159  for  cloud-top  emission  and  (if  daytime)  cloud-reflected  solar 
radi ation 

1  for  Earth's  surface  emission  and  air  emission  below  12-km 
altitude  (for  a  1-leg  CFLOS) 
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1  for  Earth's  surface  einission,  air  emission  below  12-ltni  altitude, 
and  (if  daytime)  ground-reflected  solar  radiation  (for  a  2-leg 
CFLOS,  obtaining  for  daytime). 

The  last  two  members  are  the  weighted  contributions  for  CFI  OS  conditions. 
(Owing  to  certain  simplifications  made  in  the  cloud  modeling,  there  are 
actually  only  9  and  not  159  distinct  values  in  the  distribution  for  a  cloudy- 
LOS.)  Having  determined  the  distribution  function  for  a  given  look  direction 
from  Point  V,  we  form  the  integral  distribution  and  compute  celected  percen¬ 
tiles  (XXX  =  10,  25,  50,  90,  100)  of  the  integral  distribution,  RXXX(K,L),  at 
implicit  al ti tude-IKM,  implicit  nadir-J,  and  explicit  azimuth-K.  Values  of 
RXXX(K,L)  are  averaged  over  azimuth  angles  to  give  RXXXA( IKM.J ,L) .  Values  of 
ARCVA(IKM,J ,L)  and  RXXXA(IKM,J ,1.)  are  averaged  over  nadir  angles  to  give 
ARCVH(1KM,L)  and  RXXXN (IXM.L) ,  respectively. 

Since  the  inclusion  of  the  broad-band  index  JBAND  was  a  late  change 
(March  1980),  we  elected  not  to  modify  the  arrays  ARCVM(1KM,L)  and 
RXXXH(IKM,L)  to  provide  for  an  explicit  dependence  on  the  index  JBAND  we 
did  for  the  array  UPRADN(I  ,L, JBAND ) .  This  limitation  must  be  remembered  and 
removed  if  JBAND  >  1  and  if  clouds  are  included,  unless  one  adopts  the  GRC 
definition  of  UPRADNd ,L,JBAN0)  (which  we  give  later). 

It  would  probably  be  more  conceptually  satisfying  if  one  could  per¬ 
form  azimuth-  and  nadir-averages  for  each  of  the  cloud  configurations,  so  that 
one  could  end  up  with  a  distribution  function  at  a  given  altitude  instead  of 
averaged  percentil e-val ues.  Such  a  procedure  was  not  followed. 

The  natural  cloud  model  does  not  include  air  emission  between  cloud 
tops  and  12 -km  altitude.  Hence,  such  air  emission  is  not  included  here, 
either. 

6.1-3  Dependence  on  Other  Models 

It  will  be  recognized,  of  course,  that  the  Upwelling  Radiation  Model 
depends  heavily  on  other  models  which  we  have  integrated  into  it.  Obviously 
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required  are  the  models  described  in  earlier  sections  of  this  report  (Earth 
Surface  Characterization  in  Sections  2  and  3,  Solar  Radiation  in  Section  4, 
Earth  Surface  Radiance  in  Section  5)  as  well  as  the  SAI  models  described  else¬ 
where  for  the  Ambient  Atmosphere  (Volume  14a-l)  and  Natural  Clouds  (Volume 
24).  In  addition,  highly  essential  ingredients  are  provided  by  the  G.E.  Tempo 
models  for  Atmospheric  Thermal  Emission  (Volumes  28  and  31)  and  Molecular 
Transmittance  (Volumes  28  and  31)  and  the  Visidyne,  Inc./AFGL  model  for  Atmo¬ 
spheric  Aerosols  (Volume  25).  Explicit  recognition  of  the  pertinent  routines 
is  given  later. 

6-2  SUBROUTINE  UPWELL 

6-2.1  Formulas 

6-2. 1.1  Geometry 

Here  we  derive  the  formulas  associated  with  the  characteristic  Points 

P. 

In  Figure  6-1,  consider  the  Point  V  at  altitude  h  and  the  ray  VT 
tangent  to  the  Earth's  surface.  Then,  for  the  right  triangle  OTV,  we  have 

s^  +  =  (R+h)^ 

or 

Sy  =  (2h  R  +  h^)^^^. 

The  nadir  angle  6-r  at  Point  V  for  the  tangent  ra/  is 
6j  =  cos'^  [Sj/(R+h)]. 

The  solid  angle  between  nadir  angles  and  82  is 
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t 


f!{SpS2}  ”  J'  6  de  =  2"  (cos  Sj  ■  cos  s^). 


0,  we  have 


f!(0,625  =  2ii  (1  -  cos  62). 


0  and  62  =  6-J-,  we  have 


2nn;  E  =  2’'(1  -  cos 


Consider  now  the  oblique  triangle  OPV  for  which 


a  +  6  =  X 

where,  at  Point  P,  x  is  the  zenith  angle  of  Point  V.  From  the  law  of  sines, 
we  have 


sin  (t-x)  _  sin  x  -  sin  a  _  sin  b 
■  R+K  R+h  '  "  s  '  “IT"  • 

Consider  now  the  fractiles  (n-l/2)/n„  (with  n=l,  2 . n  )  of  the 

D  b 

normalized  solid  angle  !i|.  The  corresponding  angles  and  distances  of  interest 
are; 


n-? 


cos  =  1  - 


B 


n 


-1 

cos 


(cos  8^) 


=  sin"^  [(1  +  sin 


s„  =  R  sin  a„/sin  s  . 
n  n  n 

These  quantities  of  interest  are  tabulated  in  Table  6-1  for  altitudes  of  1, 
10,  and  100  km.  oj  has  the  values  of  0.982,  0.944,  and  0.825  for  h  =  1,  10, 
and  100  km. 


For  a  Point  C  at  12-km  altitude  on  the  ray  VP,  we  have 
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Table  6-1.  Geometrical  quantities  of  interest  for  Point-V  at 
altitudes  of  1,  10,  and  100  km. 


h 

=  1  km 

n 

><0 

“n 

1 

18.03 

18.03 

.00293 

0.33 

1.05 

2 

31.50 

31.50 

.00551 

.61 

1.17 

3 

41.02 

41.03 

.00782 

.87 

1.33 

a 

48.99 

49.00 

.01034 

1.15 

1.52 

5 

56.08 

56.10 

.01338 

1.49 

1.79 

6 

62.63 

62.64 

.01737 

1.93 

2.18 

7 

68.80 

68.83 

.02320 

2.58 

2.77 

8 

74.73 

74.76 

.03298 

3.67 

3.80 

9 

80.50 

80.55 

.05386 

5.99 

6.07 

10 

86.16 

86.30 

.1365 

15-18 

15.21 

h  = 

10  km 

n 

X- 

a 

Sa 

s 

n 

n 

n 

n 

n 

1 

17.67 

17.70 

.0286 

3.19 

10.50 

2 

30.86 

30.52 

.0538 

5.98 

11.65 

3 

40.18 

40.26 

.0760 

8.45 

13,10 

4 

47.96 

43.06 

.0998 

11.10 

14.95 

5 

54.89 

55.01 

.1281 

14.24 

17.41 

6 

61.26 

61.43 

,1644 

18.28 

20.85 

7 

67.27 

67,48 

.2156 

23.98 

26.00 

8 

73.02 

73.32 

.2971 

33.03 

34.54 

9 

78.60 

79.06 

.4551 

50.61 

51.62 

10 

84.08 

85.02 

.9414 

104.68 

105.24 

h  = 

100  km 

n 

R  a 

s 

n 

n 

n 

n 

1 

16.51 

16.78 

.2668 

29.7 

104.4 

2 

28.80 

29.30 

.4957 

55.1 

114.4 

3 

37.46 

38.15 

.6922 

77.0 

126.6 

4 

44.66 

45.55 

.8956 

99.6 

141.7 

5 

51.04 

52.16 

1.1257 

125.2 

161.0 

6 

56.88 

58.29 

1.4052 

156.2 

186.5 

7 

62.36 

64.13 

1,7700 

196.8 

222.1 

8 

67.58 

69.87 

2.2914 

254.8 

275.6 

9 

72.61 

75,76 

3.1488 

350.1 

366.7 

10 

77.50 

82.58 

5.0774 

564.6 

577.5 
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sin  (it-Xj.) 
- 


sin  6 


or 


sin 


R+h 


R+C 


12 


sin  B 


v<here,  at  Point  C.  is  the  zenith  angle  of  Point  V. 

The  Earth-central  angle  a„  is 
’  c 

=  Xc  -  e- 
6-2. 1.2  Radiance 

Here  we  record  the  general  formulas  used  to  compute  the  radiance 
directed  along  the  paths  from  Point  P  to  Point  V  and  from  Point  C  to  Point  V, 
shown  in  Figures  6-2  and  6-3. 

6-2. 1.2.1  No  Clouds 

For  no  clouds  (or  for  Point-V  altitudes  below  12-kni  when  rlouds  are 
included),  the  radiance  may  be  written  as 

[Radiance]p^  =  [Air  radiance]p^  +  [Ground  enission  radiancelp 
X  TTPV(L)  +  [Ground- ref 1 ec ted  solar  radiancelp  x  TTSPV 


or 


p 

Figure  6-  2.  Geometry  ai>d  ingredients  fo.  radiance  calculation  along  path  PV  without  clouds. 


•JPRAD(K.!J  =  .AJPVlL)  RAD(I)  x  TTPVlU  +  1A0(2)  x  TTSPVIl) 

UPRAO  JK,L) 

0 


where 


TTPV(l) 


TTSPV(L) 


Total  transff.ittance  along  ?V 

'Product  of  molecular  transmittance  and  aerosol  trans- 
mi  ttance 

Total  transmittance  along  {%?  +  PV ) 

iMolecular  transmittance)  x  (Aerosol  transmittance) 

TMSOVfL)  X  [TA3P(L)  xTAPV'.l)]. 


The  noleci-ia'"  trans'Vii ttance  T'-'S™  depends  on  rh.?  oath  parameters  for  the  en 
Tire  path  (5P  +  PV); 
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U  =  U  PS{M,N,1)  +  U  (M.N.2) 

UP(M,N,1)  =UPPS{M,N,1)  +UP(M,H.2). 


6-2. 1.2.2  With  Clouds  (h  >  12  km) 

When  clouds  are  included  in  the  calculation  on  a  statistical  basis, 
the  problem  becomes  much  more  complicated,  as  inferred  from  Figure  6-3.  The 
general  procedure  is  to  compute  the  radiance  with  and  without  the  clouds  and 
(essentially)  to  weight  the  two  results  by  the  probabilities  that  the  line-of- 
sight  (LOS)  from  Point  V  intersects  the  clouds  or  does  not  intersect  the 
clouds  (discussed  in  Section  6-2.3). 

If  the  LOS  intersects  the  clouds,  the  radiance  may  be  written  as 

[Radiancel-„  =  [Air  radiance]_„  +  [Cloud  emission  radiance]^  x  TTCV(L) 

cv  C  V  C 

+  [Cloud- reflected  solar  radiance]^  x  TTSCVIL) 
or 

=  AECV(L)  +  EMISS(IDX)  x  TTCV(L)  +  SOLIRR(L)  x  TRANS(IDX)  x  TTSCVtL). 

where 

TTCV(l)  =  Total  transmittance  along  CV 

=  Product  of  molecular  transmittance  and  aerosol  trans¬ 
mittance 

TTSCV(L)  =  Total  transmittance  along  (SC  +  CV) 

=  (Molecular  transmittance)  x  (Aerosol  transmittance) 

=  TMSCV(L)  X  [TASC(L)  xTACV(L)]. 

The  molecular  transmittance  TMSCV  depends  on  the  path  parameters  for  the 
entire  path  (SC  +  CV); 
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U  SCVtM.N.l)  =  U  CS{M,N)  +  U  CV(M,N) 

UPSCV(M,N.l)  =  UPCS(M.N)  +  UPCV(M.N). 

6-2.2  Input  and  Output  Variables 

The  input  and  output  variables  for  Subroutine  UPWELL  are  described  in 
Table  6-2. 

6-2.3  Cal cul ational  Steps 

A.  Preliminaries 

1.  Set  JBANDl  in  /'JPWELS2/. 

2.  Set  Subpoint  V‘  in  /TECTOP/. 

3.  Oetermine  solar  conditions. 

a.  Solar  zenith  angle 

b. l  If  IDAYV  =  0, 

REFAZl  =  0.0,  ^  =  0. 
b.2  If  IDAYV  =  1, 

(1)  Call  GEOREA  for  REEAZI 

(2)  Call  6E0XYZ  for  RS  in  /SORCE/ 

(3)  Zero  arrays  USPV,  UPSPV,  USCV,  UPSCV. 

4.  Set  altitude  of  all  Points  P. 

5.  Initialize  counter  for  cloud  calculations,  IKM  =  0. 

B.  Altitude  Loop  ( 1  =  1, MALT (JBAND )  sNALTJ  ) 

1.  Advance  altitude  (of  fictitious  detector)  at  Point  V. 

2.  Call  GEOXYZ  for  ^  2  ^  in  /SANDD/. 

3.  Get  nadir  angle  for  tangent  ray  and  corresponding  solid 
angle. 

4.  If  IKM=1  (implies  ZKM(I,JBAND)  =  12.0),  compute  CEPS,  the 
CFLOS  for  Path  PS  by  using  calls  to  CFLOSF  in  the  following 
formul  a; 

5 

CFPS  =  ^  CC0VER(lC,KM00EL)  x  CFLOSF[ICC(IC) ,  SOLZ  ] 

IC=1 

with  ICC(IC)  =  1,4.6,9,11  for  IC  =  1,2. 3, 4, 5. 
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Table  6-2.  Input  and  output  variables  for  Subroutine  UPWELL. 


INPUT  VARIABLES 


Argument  List 


MSM  -  Index  for  category  of  surface  material  (see  Table  2-12  for 
Subroutine  ESURF) . 

OD  -  Additional  descriptor  for  selected  surface  material  (see 
Table  2-12  for  Subroutine  ESURF). 


WW. 

oy 

SPCULR 


LBINT 


JBANO 


Arrays  of  central  wavenumbers  and  wavenumber-intervalj 
widths  corresponding  to  broad-band  index  JBAND.  (cm  ) 

Logical  parameter,  passed  to  Subroutine  SURRAD. 

=  .TRUE.,  Compute  coordinates  of  specular  reflection  point 
on  an  assumed  smooth  horizontal  water  surface,  provided 
MSM=2. 

=  .FALSE.,  Do  not  compute  such  coordinates. 

Word-5  (LHV)  in  GRC  Dataset-BN  (No.  114),  List  of  Band- 
Interval  Datasets  (BI).  Strictly,  LBINT  is  the  pointer 
(i.e.,  contains  the  (Q-array)  address)  for  the  list  header 
of  the  Band-Interval  Oatasets-BI  corresponding  to  Dataset- 
BN. 

Index  for  list  of  (broad)  wavelength  bands.  (1  to  5) 


AIRSOL  Common 


For  L=1.NWAVEJ 

TASP(L),  -  Aerosol  transmittance  for  incoming  solar  rays  to  Point  P  on 
TASC(L)  ground  and  Point  C  at  12-km  altitude. 

CLDFREQ  Common 

KMOOEL  -  Index  (1  to  11)  characterizing  a  set  of  statistical  aver¬ 
ages  of  cloud-coverage  categories,  cloud  types,  and  number 
of  cloud  layers  for  a  given  geographic  region.  Character¬ 
izes  a  specification  of  CC0VER(5,11)  and  CFREQ(17,  4,  11) 
in  Block  Data  CDATA  for  KMOOEL  =  1,10;  user  must  supply  his 
own  data  for  KM00EL=11. 

For  ICC=1,5;  KM:KM0DEL=1,11 


(continued) 
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Table  6-2.  Input  and  output  variables  for  Subroutine  UPWELL  (Cont'd). 


CCOVERdCC.KM)  - 

CLDWT  Coinnon 
IDX  - 

WT(I)  - 
1=1, lOX 

TRANS (I)  - 

I=1,IDX-1 

EMISS(I)  - 
1=1,IDX-1 

OPT  INI  Common 
RADSW  - 


OPTION  Conmon 
TRNSOPT  - 


QNCNC  Conwon 
NCNC  - 


Fractional  occurrence  frequency  of  cloud-coverage  category 
ICC  for  given  KMODEL. 


Index  for  length  of  arrays  returned  from  Subroutine  CLDWT. 
IDX  equals  160  for  a  full  set  of  159  cloud-layer  and  cloud- 
type  configurations  and  is  less  for  a  restricted  set. 

Probability  of  configuration-I .  IDX  equaling  160 
corresponds  to  a  cloud- free  1 ine-of-sight. 

Transfer  coefficient  for  configuration-I.  !n  NBR  Module, 
geometry  for  transmission  through  clouds  is  not  included; 
only  geometry  for  reflection  of  solar  ray  from  the  highest- 
layer  cloud  in  configuration-1  is  included.  Attenuation  is 
included  (within  the  Natural  Cloud  Model)  to  12-km  al¬ 
titude.  (1/sr) 

Thermal  emission  spectral  radiance  frcm  the  highest-layer 
cloud  in  configuration-I  with  attenuation  computed  (within 
the  Natural  Cloud  Model)  to  12-km  altitude. 

[W/(km  sr  urn)] 


Logical  variable  serving  as  option  switch  for  atmospheric 
volume  emission  calculation;  passed  to  Subroutine  TRNSCO. 

=  .TRUE.,  T.ici  ide  call  (from  Subroutine  TRNSCO)  to  Sub¬ 
routine  ATMRAD. 

=. FALSE.,  Bypass  call  to  Subroutine  ATMRAP  and  perform 
transmittance  calculation  in  Subroutine  TRNSCO  without  air 
emission. 


Logical  variable  affecting  complexity  of  molecular  trans¬ 
mittance  calculation  (see  Tables  7-3  and  6-10  for  Sub¬ 
routines  TRANSB  and  TRANS).  In  Subroutine  UPWELL,  TRNSOPT 
is  used  only  in  the  argument  list  for  calls  to  Subroutine 
TRANS. 


A  variable,  set  to  NC  after  the  double  call  to  Subroutine 
STEPS  in  Subroutine  TRNSCO,  employed  to  facilitate  being 

(conti nued) 
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Table  6-2.  Input  and  output  variables  for  Subroutine  UPWELL  (Cont'd). 


able  to  use  zero-kilometer  altitude  in  the  NBR  Module.  For 
more  information,  see  conments  preceding  label  number  22  in 
Subroutine  UPWELL. 

SOL ARP  Comnon 

SOLLAT,  -  North  latitude  and  east  longitude  of  subsolar  point. 

SOLLON  (radians) 

For  L=1,NWAVEJ 

SOLIRR(L)  -  Solar  spectral  irradiance  at  the  top20f  t^e  Earth's  atmo¬ 
sphere  at  wavenumber- index  L.  [W/lcm*^  cm~^)] 

UPWELS  Conmon 

UPWALT,  -  Surface  altitude,  north  latitude,  and  east  longitude  of  the 

UPWLAT,  sub-V-point  at  which  the  upwelling  radiance  is  computed. 

UPWLON  (km,  radians,  radians) 

For  I=l,NALTJ;  M  JBAND=l .NBANDS 

NALT(M)  -  Number  of  altitudes  2KM(I,M)  for  (broad)  wavelength-band 
index  JBANO.  Defines  NALTO. 

2KM(I,M)  -  Altitudes  of  Point  V  above  UPWALT  at  which  upwelling  radi¬ 
ance  is  computed,  (km) 

NNADIR,  -  Number  of  nadir  and  azimuth  angles  at  Point  V  at  which 

NAZI  upwelling  radiance  is  computed. 

NWAVE(M)  -  Number  of  wavenumbers  at  which  the  upwelling  spectral  radi¬ 
ance  is  to  be  computed  for  (broad)  wavelength- band  index 
JBANO.  Defines  NWAVEJ. 

CLDFLG  -  Index  for  optional  Inclusion  of  natural  clouds 
=0.,  Clouds  are  not  included. 

=1.,  Clouds  are  included. 

OUTPUT  VARIABLES 

FLAGS  Conmon  (differs  from  GRC's) 

ITFLAG  -  Flag  indicating  the  diurnal  condition  at  Point  V,  for  use 
by  Subroutine  CLDWT  in  the  Natural  Cloud  Module. 

( conti nued) 


152 


Table  b-2.  Input  and  output  variables  for  Subroutine  UPWELL  (Cont'd). 


=0,  Sun  is  below  the  horizon. 
=1,  Sun  is  above  the  horizon. 


POSITN  Conmon 


POSALT, 

FOSLAT, 

POSLON 


Altitude,  north  latitude,  and  east  longitude  of  Point  P  at 
which  1 ine-of-sight  (from  fictitious  detector  at  Point  V) 
intersects  Earth's  surface,  (km,  radians,  radiansl 


C12ALT, 

C12LAT, 

C12L0N 


Altitude,  north  latitude,  and  east  longitude  of  Point  C 
at  which  1 ine-of-sight  (directed  toward  Point  P  from 
fictitious  detector  at  Point  V)  intersects  the  12-km  alti¬ 
tude  surface,  (km,  radians,  radiansl 


SAMDD  Conmon 

XS.  -  Earth-centered  Cartesian  coordinates  of  the  sun.  The 
YS,  orientation  of  the  system  is  shown  in  Figure  5-5.  (kml 
ZS 

XD,  -  Earth-centered  Cartesian  coordinates  of  the  fictitious 
YD,  detector  at  Point  V.  (km) 

ZD 

UL,  -  Direction  cosines  of  Point  P  from  Point  V. 

VL. 

UL 

SORCE  Common 


(Solar  coordinates  are  needed  in  Subroutine  TRAN5F  of  the  Natural 
Cloud  Module. 1 


NSORCE  -  Number  of  sources.  Set  to  1  i  n  data  statements. 

HSORCE(l)  -  Altitude  of  sun  (RSUN),  set  in  data  statement,  (km) 

RSORCE(l)  -  Radius  of  source.  True  value  for  sun  is  not  relevant  for 
this  application  in  the  NBR  Module.  Set  to  0.0  in  data 
statement. 


THETAS,  -  Colatitude  and  east  longitude  of  subsolar  point,  (degrees) 
PHIS 


(conti nued) 
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Table  6-2.  Input  and  output  variables  for  Subroutine  UPWELL  (Cont'd). 


TECTOR  Comnon 

DETALT,  -  Altitude,  north  latitude,  and  east  longitude  of  fictitious 
OETLAT,  detector  at  Point  V.  (km,  radians,  radians) 

DETLON 

*************************************** 

0  Note:  UPRAD(K,L)  (in  /UPWELS3/),  UPRADAd  .J,L )  (in  /UPVIELS3/),  and 

UPRADKd  ,L,JBAN0)  (in  /UPWELS/)  are  cloud-free  results.  For  results  which 
also  include  cloud  effects  for  altitudes  n2  km,  use  the  corresponding 
arrays  RXXX(K,L),  RXXXAd.l.L),  and  RXXXN  (I  ,L ) .  all  in  /'JPWELSl/.  To  these 
arrays  one  must  add,  respe.  tively,  the  base-value  quantities  ARCVAd,J,L), 
ARCVAd  ,J,L),  and  ARCV!dl,L)  (in  /UPWELSl/). 

0  In  the  GRC  version,  for  altitudes  2.12  km  and  if  clouds  are  included,  the 
array  UPRADUd  ,L,v]BAND)  is  reset  as 

UPRADN(1,L,JBANQ)  =  ROSOUdKM.L)  +  ARCVN ( IKM,L  ) , 

which  is  transferred  through  /UPWELS/  to  (the  GRC)  Subroutine  UPWELT. 

Thus,  in  the  GRC  version,  for  altitudes  ZKM  >12  km,  UPRADN  is  not  the  cloud- 
free  result  but  the  50-percentile  of  the  radiance  distribution  function  for 
statistical  clouds  (if  included  in  the  problem). 

********-kit-kti**-k*-kiiic****-hl,-k***ir*-k-k-k**i,i,it 

UPWELS  Conmon 

lOAYV  -  Index  for  diurnal  condition  at  sub-V-point. 

=0,  Solar  zenith  angle  >  90° 

=1,  Solar  zenith  angle  190°. 

For  I=1,NALTJ;  L=1,NWAVE0;  MrJBAND=l .NBANDS 

UPRADN  (I  ,L  ,M)  -  Nadir- averaged  value  of  UPRADA(  1  ,J  ,L ) .  [W/(ciii^  sr  cm’^)] 

Il'H  for  number  t*  altitudes  at  which  calculations  are 

made  vAien  clouds  are  included  (used  '-n  Subroutine  SURRAD), 

UPWELSl  Coimion 

For  1=1,NALTJ;  J=l,NNAaiR;  K=1,NAZI;  L=1,NWAVEJ;  M^JBAUD=1 .NBANOS 

(continued) 
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Table  6-2.  Input  and  output  variables  for  Subroutine  UPWELL  (Cont'd). 


ARCVAd.J.Ll 


ARCVHd  ,L) 


When  clouds  are  considered  (ZKM(I,M)  >_  12.0),  a  component 
of  the  upweding  spectral  radiance  received  at  Point  V  (at 
altitude-I),  from  air  emission  above  12-km  altitude,  along 
a  ray  directed  to  Point  P  on  the  Earth's  surface  (at  ^ 
nadir-J  and  independent  of  azimuth-K,).  Cw/(cm  sr  cm  )] 

Madir-averaged, val ue  of  ARCVA(I,J,L)  for  ZKM(1,M)  1  12.0  km. 
[W/{cm  sr  cm"  )] 


For  XXX  =  10,  25,  50,  90,  100 

RXXX(X,L)  -  XXX-percentil e  of  the  integral  distribution  of  the  total 

(including  that  from  statistical  clouds)  natural  upwelling 
spectral  radiance  received  at  Point  V  foi*  wavenumber-L  (at 
implicit  altitude-lKM  above  surface  material-MSM)  along  a 
ray  directed  to  Point  P  on  Earth's  surface  (at  ii|plicit 
nadir-J  and  explicit  azimuth-X).  [W/(cm  sr  cm  )] 

**Note:  RXXX(K,L)  does  not  include  ARCVAd  ,J,L) .  Cur¬ 
rently,  UPRA0(K,L)  and  RXXX(K,L)  are  being  written  in 
binary  form  on  logical  unit  No.  8,  for  all  appropriate 
altitudes  and  nadirs. 


RXXXA(I,0,L)  -  Azimuth- averaged  value  of  RXXX{K,L).  [W/(an 
RXXXN(I,L)  -  Nadir-averaged  value  of  RXXXA(I,J,L).  [W/(cm^ 


sr  cm"'^)] 
sr  cm"^)] 


UPWELS2  Common 

JBANDl  -  Same  as  JBANO,  but  made  available  to  Subroutine  S'JRRAD  to 
facil itate  print. 

UPUELS3  Common 


For  I=1,NALTJ;  J=1,NN\DIR;  K=1.NAZ1;  L=1,NWAVIJ 

UPRAD(X,L)  -  Natural  upwdling  spectral  radiance  received  at  Point  V  (at 
altituae-I  above  surface  material -MSM)  along  a  ray  directed 
to  Point  P  on  Earth's  surface  (at  nadir-J  and  azimuth-K). 

(Implicitly,  I  =  1,NALTJ;  J  =  l, NADIR.  1-  and  J -dependences 
are  not  stored  so  user  must  print  UPRA0(K,L)  imediately 
after  computation  if  he  wants  to  see  them.  Currently, 
UPRAD(K,L)  and  RXy.X(K,Ll  are  being  written  in  binary  form 
on  logical  unit^No.  8,  fir  all  appropriate  altitudes  and 
nadirs.)  [W/(cm  sr  cm"  )] 


ljPRADA(  1  ,J  ,L  1  -  Azimuth- averaged  v.-.’ue  of  'JPRA0(K,L! 


[W/(cm"^  sr  oil  ^ )] 
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C.  Nadir  Angle  Loop  (J=1,NNAD1R) 

1.  Advance  fractile  (FRCTL)  of  tangent  solid  angle  (OMEGAT(I)). 

2.  For  fractile  FRCTL,  get 

a.  Nadir  angle  (BETA). 

b.  Zenith  angle  (CHIl  of  PV. 

c.  Earth-central  angle  (ALPHA). 

d.  If  clouds; 

(1)  Zenith  angle  (CHIC)  of  CV. 

(2)  Earth-central  angle  (ALPHAC). 

3.  Initialize  azimuth  loop  (number  of  azimuths  and  azimuth 
angle).  If  IDAYV  =  0  or  MSM  =  1.  set  NAZI  =  1. 

0.  Azimuth  Angle  Loop  (K=1,NAZI) 

1.  Allow  solar  specular  point  to  be  computed  (at  most)  once 
per  altitude. 

2.  Advance  azimuth  angle. 

3.  Call  AGAGEO  to  set  latitude  and  longitude  of  Point  P  in 
/POSITN/. 

4.  Call  GEOXYZ  to  get  ^  and  thence  direction  cosines  (UL.VL, 
WL)  for  /SANDD/. 

5.  If  clouds: 

a.  If  IKM=1,  Point  C  is  at  Point  V  and  ^ 

b.  If  IKM  >1; 

(1)  Call  AGAQEO  to  set  latitude  and  longitude  of 
Point  C  in  /POSITN/. 

(2)  Call  GEOXYZ  to  get  RC  for  later  use  in  call  to 
TRNSCO. 

6.  Initialize  position  (FILPOS)  of  file  LTMTE  (necessary  if 
TRNSOPT  =  .FALSE.). 

E.  Wavenumber  Loop  (L=l .NWAVE (JBAND  )iNWAVEJ  ) 

1.  Advance  central  wavelength  (ZLAM) 

2  Call  SURRAD  to  get: 
a.  At  Point  P; 

(1)  Emitted  radiance,  RAD(l);  for  L^I. 
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(2.1)  Unattenuated  reflected  solar  radiance,  RA0(2); 
for  L>1. 

(2.2)  Path  parameters  [UPS(IT.N.l)  and  UPPS ( IT ,N, 1)] 
for  path  SP;  for  L=l. 

(3)  Aerosol  transmittance,  TASP(L)  through  /AIRSOL/, 
for  path  SP;  for  L^l. 
b.  At  Point  C  (if  IKM=1): 

(1)  Path  parameters  [UCS(n,M)  and  UPCS(IT,N)]  for 
path  SC;  for  L=l. 

(2)  Aerosol  transmittance,  TASC(L)  through  /AIRSOL/, 
for  path  SC;  for  L>1. 

3.  Call  TRNSCOIpI)  to  get  for  path 

a.  (Derived  from  Word-8,  -7,  and  -5  of  0ataset-3I, 
obtained  by  calling  PREV); 

Aerosol  transmittance,  TAPV(L); 

Total  (molecular  and  aerosol)  transmittance,  TTPV(L); 
Air  emission,  AEPV(L). 

b.  From  XYZCOI  Common: 

Path  parameters,  U(IT,N,2)  and  UP{1T,N,2),  preserved 
as  UPVdT.N)  and  UPPV(IT,N). 

4.  Compute  sum  (temporarily  defined  as  ijPRAD(K,L)  and  recog¬ 
nized  as  azimuthally  independent)  of  (I)  the  Earth's  sur¬ 
face  radiance  RAD(l),  multiplied  by  the  total  transmittance 
TTPV{L)  along  PV,  and  (2)  the  atmospheric  emission  AEPV(L) 
along  PV; 

[UPRAD(X,L)]g^j  =  RAD(l)  x  TTPV(L)  +  AEPVtL)  (K=1,MAZ:), 

which  is  the  upwelling  spectral  radiance,  for  implicit 
nadir  index-J,  at  night  (IDAYV=0)  and  for  no  clouds. 

5.  If  clouds,  call  TRNSCO(CV)  to  get  for  path  CV: 

a.  (Derived  from  Word-8,  -7,  and  -5  of  Dataset-BI,  ob¬ 
tained  by  calling  PREV): 

Aerosol  transmittance,  TACV(L); 

Total  (molecular  and  aerosol)  transmittance,  TTCV(L); 
Air  emission. 


b.  From  XYZCOM  Conrton: 

Path  parameters,  U  and  UP,  preserved  as  UCV  and  UPCV. 

6.  Preserve  AECV(L),  which  is  azimuthally  independent,  with  a 
notation  to  indicate  it  is  the  azimuth  average  for  the 
current  values  of  IKM,  J,  and  L; 

ARCVA(IK'<,J,L)  =  AECV(L). 

7.  Set  ITFLAG  in  /FLAGS/  equal  to  IDAYV,  for  use  in  Subroutine 
TRANSF  when  called  by  Subroutine  CLDWT . 

8.  Call  CLOMT  to  obtain  through  /CLDWT/  the  arrays  'WT,  Ei^lSS, 
and  TRASS  of  lengths  I3X=160,  I0X-1=159,  and  IDX-1=159, 
respectively.  IDX  equals  160  for  a  full  set  of  159  cloud 
configurations.  WT  is  the  array  for  weights  corresponding 
to  the  various  cloud  configurations  or  sets;  at  12-km  alti¬ 
tude  (Point  C)  along  PV,  EMISS  is  the  array  for  cloud-top 
emission  radiances  and  (if  IDAYV=1)  TRASS  is  the  array  for 
the  ( irradiance-to-radiance)  transfer  coefficients  for 
cloud-top  reflection  of  solar  radiation.  'WT(Y),  for  any  of 
the  10  location-season  averaged  statistical  cloud  models 
(KM00EL=1 , 10) ,  is  the  probability  that  (a)  the  cloud- 
configuration  set  indicated  by  the  index  M  occurs  and  (b) 
the  detector's  LOS  at  zenith  angle  CHI  intersects  the  cloud- 
configuration  set.  The  probability  of  the  detector's  LOS 
intersecting  clouds  is  t  WTI'l),  (M=l,159). 

9.  Continue  with  following  steps: 

a.  To  facilitate  computing  the  radiance  distrioution 
function  resulting  from  the  statistical  treatment 
natural  clouds,  start  forming  a  new  radiance  distribu¬ 
tion  function  (UPRADC)  and  corresponding  weights  (WTL). 

b.  To  facilitate  assessing  the  relative  importance  of 
emission  and  reflection  contributions,  preserve  the 
emission  component  of  JPTAOC  in  another  array  (JPRDCl). 

c.  Multiply  the  spectral  radiance  fron  the  Natural  Cloud 

Module,  expressed  in  W/(km  sr  urn),  by  l.OE-14  \ 

7  ?  - 1 

(ZLAM)  to  obtain  W/(cm"  sr  cm  ') . 
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d. 


Include  transmittance  between  Points  C  and  V.  For 
M=l,159: 

['JP,9A0C(M)  =  l.Oe-14  X  (ZLAM)-  x  E'IISS(M)  x  TTCV{L) 

UP, IOC  KM)  =  ['dPPvA[)C{M)]jji^ 

WTC(M)  =  IfT(M) 

159 

SUH'/ITC  =  ^  JTC(M). 

M-1 

e.  Sow  use  fact  that  the  radiance  at  Point  V  due  to  air 
emission  along  pv  can  be  separated  into  two  portions; 
AEPVd)  =  ACPC(L)  X  TTCV(L)  +  AECV(L) 

or 

AEPCd)  X  TTCVd)  AEPV(L)  -  AECV(L). 

Hence  we  need  to  subtract  A£CV{L)  from  'JPS.A0(iC,L)  in 
order  that  'JP!1A0C(  160)  will  be  the  air  emission  along 
PC  but  attenuated  along  CV. 

UP;^ADC(160)  =  'JPRA0(K,U)  -  AECV(L) 

UPRDC 1(160)  =  UPRADC(i60). 

f.  We  need  the  mean  probability  of  a  cloud-free  line-of- 
sight  (CFLOS)  along  PC  (at  zenith  angle  CH!  at  Point  P 
corresponding  to  nadir  angle  BETA  at  Point  V).  As 
noted  in  Step  3,  the  probability  of  the  detector's  LOS 
intersecting  clouds  is  SUMWT  =  ::  WT(M),  (M=l,159). 

Hence  we  take  (l-SUMWT)  as  the  desired  probability  of 

a  CFLOS,  CFPV; 

CF^V  =  1-SUMWTC 
>flv(160)  =  CFPV. 

This  iVTCIlbO)  obtains  for  night,  the  udytime  value  is 
set  1 ater . 

10.  If  IjAYV=1,  we  must  include  the  surface-reflected  solar 
radiation; 
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a.  In  Step  3b,  we  preserved  the  path  parameters  along  P¥ 
as  UPVdT.N)  and  UPPV(IT,N).  We  now  add  the  param¬ 
eters  for  path  segments  SP  and  PV  and  preserve  as  USPV 
and  UPSPV  arrays. 

U  SPVdT.N)  =  U  PS(IT,N)  +  U  PV(IT,N). 

UPSPV  ( IT, N)  =  UPPSUT.N)  UPPVdT.NK 

b.  Call  TRANS(..., USPV, UPSPV,...!  to  get  the  total 
molecular  transmittance  (TllSPV(Ll)  for  the  total  path 
(SP-t^). 

c.  To  get  the  aerosol  transmittance  for  the  total  path 
ISP+PVI,  use  TASP(L)  returned  through  /AIRSOL/  from 
call  to  Subroutine  SURRAD  and  TAPV(L!  from  Subroutine 
TRNSCO's  call  to  Subroutine  ATMRAD  for  path  PV. 

d.  Thus  the  total  transmittance  for  the  surface- reflected 
solar  ra;.  along  the  total  path  (SP+PV)  is 

TTSPV(L)  =  TMSPVIL)  x  fTASP(L)  x  TAPV(L)]. 

e.  The  total  upwelling  r-adiance  along  the  path  ^  (with¬ 
out  clouds)  is 

[UPRAD(K.L)]^^^  =  [UPRA0{K,L)]q^^  +  TTSPV(L)  x  RAD(2) 
where  only  RAD(2)  may  depend  on  azimutn,  which  it  will 
for  non-Lambertian  surface  materials  (MSM>1).  The 
first  term  is  the  sun  of  the  attenuated  ground- surface 
emission  and  air  emission  along  path  PV  (obtained  in 
Step  E.4)  and  the  second  term  is  the  product  of  the 
unattenuated  surface-reflected  solar  radiance  (ob¬ 
tained  from  Step  E. 2. a. (2.1))  and  the  total  trans¬ 
mittance  (obtained  from  Step  E.lO.d). 

11.  If  IDAYV=1  and  clouds  are  present,  one  must  include  the 
cloud-reflected  solar  radiation. 

a.  We  must  convert  the  transfer  coefficients  (TRAMS,  from 
Step  E.81  into  radiances  for  the  cloud-reflected  solar 
radiation.  To  do  so,  we  need  the  solar  spectra! 

O 

irradiance  E[W/(cm  cm  )]  (normal  to  the  path  to  the 
sun)  at  the  12-km  oltitude  point  along  the  path  VP. 

He  use  the  quantity  SOLIRRIL)  =  E,  previously  obtained 
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from  Subroutine  SURRAD's  call  to  SOLRAD  and  available 
tnrough  /SOLARP/. 

b.  We  include  air  transmittance  [TTSCV(L)]  above  12-kni 
altitude  along  the  total  path  (SC+CV).  TTSCV(L)  is 
given  by  the  product  of  the  molecular  transmittance 
[TMSCV(L)]  and  the  aerosol  transtnittance  [TASC(L)  x 
TACV(L)].  TMSCV(L)  will  be  computed  by  Subroutine 
TRANS,  given  the  oath  parameters  USCV  and  JPSCV.  From 
Subroutine  TRNSCO's  call  to  PATH  (Step  E.S.b),  we  have 
the  path  parameters  U(IT,M,2)  and  UPfIT,N,2)  (which  we 
saved  as  UCV(IT,N)  and  UPCV(1T,N)  for  the  path  CV. 

The  path  parameters  UCS(IT,N)  and  UPCS(IT,N)  were 
obtained  from  the  call  to  Subroutine  SURRAD  [Step 
E.2.b.(l)].  Add  to  the  path  parameters  and  preserve 
as  USCV  and  UPSCV  arrays. 

U  SCV(IT.N)  =  U  CSdT.N)  +  U  CV(IT,N) 

UPSCV(IT.N)  =  UPCSdT.N)  +  UPCVdT.N). 

c.  Call  TRANS (....USCV, UPSCV,...)  to  obtain  the  total 
molecular  transmittance  TMSCV(L)  for  the  total  path 

(sc+a). 

d.  To  get  the  aerosol  transmittance  for  the  total  path 
(s'c-^a),  use  TASC(L)  returned  through  /AIRSOL/  from 
call  v.c>  Subroutine  SURRAD  and  TACV(L)  from  Subroutine 
TRNSCO's  call  to  Subroutine  ATMRAD  for  path  CV. 

e.  Thus  the  total  transmittance  for  the  cl oud-refl ected 
solar  ray  along  the  total  path  (SC+CV)  is 
TTSCV(L)  =  TMSCV(L)  x  [TASC(L)  x  TACV(L)1. 

f.  A  contribution  to  the  total  upwelling  radiance  along 
the  path  CV  (with  clouds  at  or  below  Point  C)  is 
[UPRADC(M)]„g^  =  [UPRADC(M)]j^^jj 

+-SOLIRR(L)  X  TRANS (M)  xTTSCV(L) 
(M=1.159) 

where  only  the  transfer  coefficient  TRANS(M)  depends 
on  dzimuUi.  The  first  term  is  the  cloud-surface 
emission  attenuated  along  path  CV  (obtained  in  Step 
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E.9.d)  and  the  second  term  is  the  product  of  the  un¬ 
attenuated  cloud-surface-reflected  solar  radiance 
[SbLIRRlL)  X  TRANS(M)]  and  the  total  transmittance 
(obtained  from  Step  E.ll.e). 

g.  WTC(160)  needs  to  be  reset  for  daytime  conditions.  We 
multiply  the  probability  of  the  (nighttime)  one- leg 
CFLOS  by  the  probability  of  not  having  the  second 
(daytime)  leg; 

WTC(160)  =  CFPV  X  (1.0  -  CFPS), 

where  CFPV  was  set  in  Step  E.9.f  and  CFPS  was  set  in 
Step  B.4. 

h.  For  daytime,  the  arrays  UPRADC,  UPRDCl,  and  WTC  must 
be  augmented  by  inclusion  of  members  for  a  two-leg 
CFLOS; 

UPRDC 1(161)  =  UPRAOC(lbU) 

UPRADC(161)  =  UPRADCdbO)  +  RAD(2)  x  TTSPV(2) 

WTCdbl)  =  CFPS  X  CFPV 

where  'JPRADC(160)  was  set  in  Step  E,9.e,  RAD(2)  in 
Step  E. 2. a. (2.1),  and  TTSPV(L)  in  Step  E.lO.d. 

12.  For  clouds,  day  or  night,  the  distribution-function  arrays 
must  he  processed. 

a.  Augment  each  of  the  three  arrays  (UPRADC,  UPRDC 1,  and 
WTC)  with  a  zero-value  member,  which  allows  Subroutine 
LINEAR  to  interpolate  within  its  given  array  if  the 
weight  of  the  normally  smallest  member  exceeds  the 
smallest  fractile  (now  0.10)  for  which  an  integral- 
distribution  value  is  requested. 

UPRADC(II)  =  UPRDCl(lI)  =  WTC  =  0.0 

161  for  night 

162  for  day. 

b.  Call  SORTLJ  to  sort  the  radiance  array  UPRADC  in  in¬ 
creasing  order  and  carry  along  the  arrays  UPRDC 1  and 
WTC. 
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c.  Sum  the  weights  and  normalize  to  unity  (although,  in 
principle,  the  weights  are  already  so  normalized). 

d.  Interpolate  the  array  UPHADC  (by  calling  LINEAR)  to 
obtain  the  percentile  values  (called  RXXX(K,L))  corres¬ 
ponding  to  XXX  =  10,  25,  50,  and  90  (i.e.,  WTC  =  0.10, 
0.25,  0.50,  and  0.90).  For  XXX  =  100,  set  RXXX(K,L)  = 
UPRADC(Il). 

C.  Nadir  Angle  Loop  {J  =  1,NNADIR)  Completion 

After  completing  the  wavenumber  and  azimuth  loops,  compute  aver¬ 
age'  ,'ver  azimuth  angles  K  at  wavenumbers  L  =  1,NWAVEJ;  nadir 
angle  J ;  and  altitude  I  (or  IKM  for  clouds). 

NAZI 

UPRA0A(I,J,L)  =  (1/MAZI  )^  UPRAD(X,L) 

K=1 


NAZI 

RXXXA(IKM,J,L)  =  (1/NAZI  )^  RXXX(X,L) 

K=1 

XXX  =  10,  25,  50,  90,  100 

O'.  Altitude  Loop  (l=l,NALTJ)  Completion 

After  completing  the  nadir  loop,  compute  averages  over  nadir 
angles  J  at  wavenumbers  L=1,NWAVE0  and  altitude  1  (or  IKM  for 
clouds): 

NNAOIR 

UPRADN(I,L,JBAND)  =  (1/NNADlR)  ^  UPRADA' 1 , J ,L ) 

0  =  1 


NNAOIR 

ARCVN(IKM,L)  =  (1/NNAOIR)  ^  ARCVA( IKNI, 0  .L  ) 

0  =  1 
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NNADIR 

RXXXNdKM.D  =  (l/NNAOIR)  ^  RXXXA(IKM.J,L). 

J=1 

Since  the  inclusion  of  the  index  JBAND  was  a  ‘'ate  change,  we 
elected  not  to  modify  the  arrays  ARCVN(IKM,L)  ar,d  RXXXN(IKM,L) 
to  provide  for  an  explicit  dependence  on  the  index  JBAND  as  we 
did  for  the  array  UPRADNd  ,L,  JBAND ) .  This  limitation  must  be 
remembered  and  removed  if  JBAND  >1  and  if  clouds  are  included, 
unless  one  adopts  the  GRC  definition  of  UPRADNd ,L, JBAND) ,  i.e., 
UPRADNd.L.JBAND)  =  R050N(IKM,L)  +  ARCVN(IKM,L) . 

6-3  OTHER  ROUTINES  IN  UPWELLING  NATURAL  RADIATION  MODEL 

Subroutine  UPWELL,  the  principal  routine  in  the  Upwelling  Natural 
Radiation  Model ,  makes  a  number  of  calls  as  shown  in  Figure  6-4. 

6- 3.1  SAI  Routines 

The  calls  to  the  left  of  the  vertical  line  in  Figure  6-4  are  related 
to  the  Natural  Cloud  Model.  Subroutine  GEOXYZ  has  been  discussed  in  Section 
5-4.1.  Subroutine  XMIT  is  described  in  Table  7-3a.  The  routines  CFLOSF, 

CLDWT,  SORTLJ,  and  LINEAR  are  part  of  the  Natural  Cloud  Model;  listings  of 
them  are  in  Volume  24  and  brief  descriptions  of  them  are  given  here  in  Table 

7- 3a.  Note  that  the  listing  of  SORTLJ  given  here  in  Section  8  differs  in  an 
essential  aspect  from  that  in  Volume  24  and  must  be  used  with  the  NBR  Module 
(the  listing  in  Volune  24  is  satisfactory  for  its  use  there). 

The  routines  AGAGEO,  GEOREA,  GEOTAM  (called  by  GEOREA),  REATAN 
(called  by  AGAGEO),  and  TANGEO  (called  by  AGAGEO)  provide  coordinate  transforma¬ 
tions.  They  art  described  in  Table  7-3a.  Their  input  and  output  variables 
are  given  in  Tables  6-3  through  6-7,  respectively. 
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Figure  6—4.  Routines  called  directly  from  the  principal  routine  (UPWELL)  in  the 

Upwelling  Natural  Radiation  Model.  For  subsequent  calls,  see  Figure  7-1. 


Table  5-3. 


Input  and  output  variables  for  Subroutine  AGAGEO. 


INPirr  VARIABLES 


Argument  List 

HAl,  -  Altitude,  colatitude,  and  east  longitude  of  Point  1. 
GCl,  (cm,  radians,  radians) 

GLl 

A221,  -  Azimuth  angle  and  geocentric  angle  of  Point  2  relative 

GA21  to  Point  1.  (radians) 

HA2  -  Altitude  of  Point  2.  (cm) 

OUTPUT  VARIABLES 

Argument  Li st 

GC2,  -  Colatitude  and  east  longitude  or  Point  2.  (radians) 
GL2 


Table  5-4.  Input  and  output  variables  fo'"  Subroutine  GEOREA. 


INPUT  VARIABLES 


Argument  Li st 


HAl, 

GCl, 

GLl 


Altitude,  colatitude,  and  east  longitude  of  Point  1. 
(cm,  radians,  radians) 


HA2,  -  Altitude,  colatitude,  and  east  longitude  of  Point  2. 
GC2,  (cm,  radians,  radians) 

GL2 


OUIPUT  VARIABLES 
Argument  List 

SR21,  -  Slant  range,  elevation,  and  azimuth  of  Point  2  relative 

EL21,  to  Point  1.  (cm,  radians,  radians) 

AZ21 


Table  6-5.  Input  and  output  variables  for  Subroutine  GEOTAN. 


INPUT  VARIABLES 
Argiment  List 

HAl,  -  Altitude,  colatitude,  and  east  longitude  of  Point  1. 
GCl,  (cm,  radians,  radians) 

GLl 

HA2,  -  Altitude,  colatitude,  and  east  longitude  of  Point  2. 
GC2,  (cm,  radians,  radians) 

GL2 

OUTPUT  VARIABLES 


Argument  Li  St 

XE21,  -  X,  Y,  and  Z  coordinates  of  Point  2  relative  to  Point  1.  (cm) 

YN21, 

ZV21 


Table  6-6.  Input  and  output  variables  for  Subroutine  REATAN. 


INPUT  VARIABLES 
Argument  List 

SR,  -  Slant  range,  elevation  angle,  and  azimuth  angle  of. Point  P. 
EL,  (cm,  radians,  radians) 

AZ 

OUTPUT  VARIABLES 
Argument  List 

XE,  -  X,  Y,  and  Z  coordinates  of  Point  P.  (cm) 

YN, 

ZV 


lb  7 


Table  6-7.  Input  and  output  variables  for  Subroutine  TANGEO. 


INPUT  VARIABLES 
Argunent  List 

HAl,  -  Altitude,  colatitude,  and  east  longitude  of  Point  1. 

6C1,  (cm,  radians,  radians) 

GLl 

ZE21,  -  X,  Y,  and  Z  coordinates  of  Point  2  relative  to  Point  1.  (on) 

YN21, 

ZV21 

OUTPUT  VARIABLES 
Argument  List 

HA2,  -  Altitude,  colatitude,  and  east  longitude  of  Point  2. 

GC2,  {cm,  radians,  radians) 

GL2 


6-3.2  G.E.  Tempo  Routines  (TRN5C0,  ATMRAO,  TRANS) 

Three  very  important  routines  called  either  directly  or  indirectly  by 
Subroutine  UPWELL  are  Subroutines  TRNSCO,  ATMRAD,  and  TRANS.  A  brief  descrip¬ 
tion  of  the  purpose  of  each  of  these  routines  is  included  in  Table  7-3a.  We 
have  sunmarized  their  input  and  output  variables  here;  Subroutine  TRNSCO 
(Table  6-8),  Subroutine  ATMRAO  (Table  6-9),  and  Subroutine  TRANS  (Table  6-10). 
Ewing  et  al .  have  given  briefer  statements  about  two  oi  .‘'e  routines  in  Volime 
31;  TRNSCO  (p.  75)  and  TRANS  (p.72,  with  flowchart  on  p.  73). 
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Table  6-8.  Input  and  output  variables  for  Subroutine  TRNSCO. 


INPUT  VARIABLES 
Argianent  List 
For  1=1,3 


RXd).  - 

RYdl, 

RZ(1) 

LBINT  - 


Location  vectors  of  Points  X,  Y,  and  Z  which,  respectively, 
are  typically  but  not  necessarily  the  locations  of  the 
detector,  scattering  site,  and  source,  (cml 

Word-5  (LHV)  in  GRC  Dataset-BN  (No.  114),  List  of  Band- 
Interval  Datasets  (BI).  Strictly,  LBINT  is  the  pointer 
(i.e.,  contains  the  (Q-array)  address)  for  the  List  Header 
of  the  Band-Interval  Oatasets-Bl  corresponding  to  Dataset- 
BN « 


RAOSW  -  Logical  variable  serving  as  option  switch  for  atmospheric 
volume  emission  calculation. 

=.TRUE.,  Include  call  (from  Subroutine  TRNSCO)  to  Sub¬ 
routine  ATt^AO. 

=. FALSE.,  Bypass  call  to  Subroutine  ATMRAD  and  perform 
transmittance  calculation  in  Subroutine  TRNSCO 
without  air  emission. 

Dataset-Bl  (Band-Interval  Dataset  Mo.  115) 

Q(l)  =  BNLO  Bl,  -  Low  and  high  wavelengths  for  wavelength-band- index 

q(2)  =  BNHI  BI  J.  (urn) 

0(3)  =  WLO  61,  -  Low  and, high  wavenumbers  for  wavelength-band- index 

q(4)  =  WHI  BI  J.  (cm  M 

XYZCOM  Common 


LTMTE 


Binary  file  containing  the  band-model  parameters_^ich  were 
derived  in  Subroutine  TRANSB  from  the  basic  5-cm"^  reso¬ 
lution  data.  Here  in  Subroutine  TRNSCO,  File  LTMTE  is 
rewound  for  use  in  Subroutine  TRANS. 


OPTION  Conmon 


TRNSOPT 


-  Logical  variable  affecting  complexity  of  molecular  trans- 
miHance  calculation  (see  Tables  7-8  and  6-10  for  Sub¬ 
routines  TRANSB  and  TRANS).  In  Subroutine  TRNSCO,  TRNSOPT 
is  used  only  in  the  argument  list  tor  the  call  to  Sub¬ 
routine  TRANS,  a  call  that  occurs  only  if  RADSW  =  .FALSE., 
which  is  not  the  case  in  the  NBR  Module. 

( conti nued) 
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Table  6-8.  Input  and  output  variables  for  Subroutine  TRM''C0  (Cont'd). 


OUTPUT  VARIABLES 

Description  of  the  output  requires  caveats. 

1.  In  the  (rare)  event  the  path  should  not  intersect  the  shelled-atmo¬ 
sphere,  then  initialized  values  of  ‘/Jord-5  (if  RADSW  -.TRUE.), 

Word-7,  and  Word-8  of  Dataset-81  are  explicitly  set  here  in  Sub¬ 
routine  TRMSCO. 

2.  In  the  usual  event  that  the  path  does  intersect  the  atmosphere, 
there  are  two  cases  to  consider; 

2.1  RADSW  =  .True.  (Applies  to  N3R  Module) 

Subroutine  ATMRAO  is  called  to  evaluate  Words-5,  -7,  and  -8  of 
Oataset-BI,  but  this  dataset  is  not  called  here  in  TRNSCO  and  thus 
is  not  explicitly  available  in  TRNSCO. 

2.2  RADSW  =  .False.  (Does  not  apply  to  N3R  Module) 

Subroutine  ATMRAD  is  not  called.  Hence,  the  calls  that  ATMRAD  makes 
to  96t  the  transmittance  calculations  done  must  be  made  here  in 
TRHSCO.  In  this  case,  Word-7  and  -3  of  Dataset-31  are  explicitly 
avail  able. 

Definitions  of  Word-5,  -7,  and  -3  of  Dataset-31  follow. 

')(5)=3KGND  B1  -  In-band- i nterval  radiance  (due  to  atmospheric 

emission)  over  the  entire  path  length  (which  should 
have  1-leg  and  not  2-legsl.  [W/(cm  sr  band-interval)] 

Q{7)=TRANS  B1  -  Product  of  molecular  and  aerosol  transmittances  over 
the  entire  path  length. 

£1(3)=IDSBX  31  -  Aerosol  transmittance  over  the  entire  path  length. 

Hote;  This  is  a  temporary  use  of  Word-3  (and  not  the  GRC  dictionary 
use  of  Word-3).  Here  it  is  used  to  carry  information  to  Sub¬ 
routine  UPWELL. 

QNCNC  Conmon 

HCNC  -  A  variable  set  to  HC  and  made  available  to  Subroutine 
UPWELL  tu  facilitate  being  able  to  use  zero-kilometer 
altitude  in  the  W3R  Module.  For  more  information,  see 
comments  preceding  label  number  22  in  Subroutine  UPWELL. 


Table  6-9.  Input  and  output  variables  for  Subroutine  ATMRAD. 


INPUT  VARIABLES 

Argisnent  List 

LOGIC  -  Logical  variable. 

=  .TRUE.,  On  first  entry  (for  first  path  segment)  from 
Subroutine  TRNSCO  (and  is  reset  to  .FALSE,  in 
ATMRAD). 

=. FALSE.,  On  subsequent  entries  along  the  same  path. 


ISHELL(l),  -  INOX(I)  and  INDX(I+1)  in  call  from  Subroutine  TRNSCO. 

ISHELL(2) 

ISHELL(3)  -  Used  in  evaluating  the  logical  variable  TEST.  ISHtLL{3) 
will  typically  be  equal  to  lN0X(l+2),  a  positive  quantity 
except  on  the  last  call  to  ATMRAD  when  the  last  path- 
segment  is  being  treated,  at  which  time  ISHELLO)  will 
become  equal  to  INDXiNC+l)  which  had  been  set  to  0  in  Sub¬ 
routine  STEP. 


XFRAC(l),  -  XFRACS(I)  and  XFRACSi I +1 )  in  call  fran  Subroutine  TRNSCO. 

XFRAC(2)  To  help  understand  the  values  and  uses  of  XFRACSd),  (1) 
recall  that  the  total  path  has  NC-1  segments  and  NC  end 
points  of  these  segtients  and  (2)  see  Table  5-8  for  Sub¬ 
routine  STEP. 


DS  -  0S{I+1)  in  call  from  Subroutine  TRNSCO. 

Note:  It  is  always  true  that  DS(1)=0  and  0S(NC+1)  =  -1.0, 
where  NC  is  the  number  of  path  segments  plus  one.  ATMRAO 
will  not  be  called  with  I=NC.  (cm) 


LBINT  -  Word-5  in  GRC's  Dataset-BN  (No.  114).  Strictly,  LBINT  is 
the  pointer  (i.e.,  contains  the  (Q-array)  address)  for  the 
List  Header  of  the  Band-Interval  Oatasets-Bl  corresponding 
to  Dataset-BN. 


XYZCOM  Common 

FACT  -  Path  resolution  factor  controlling  the  number  of  altitudes 
and  spacing  used  in  Subroutine  SHELLS.  See  Table  ^-9  for 
Subroutine  SHELLS.  Here  in  Subroutine  ATMRAO,  FACT  is  used 
to  set  TOL,  which  is  used  to  test  temperature  differein,es 
across  cel  1 s. 


( conti nued) 
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Table  6-9.  Input  and  output  variables  for  Subroutine  ATMRAO  (Cont'dl. 


For  J=1,HS 

HSHELL(J),  -  Altitude  and  temperature  at  boundary-J .  (HSHELL(1)=0.0) 

TS(J)  (cm,  deglO 

For  1=1,2;  H=l,10 

U{I,N,2),  -  Cumulative  values  of  path  parameters  U  (areal  density)  and 

l)P(I,N,2)  UP  (product  of  U  and  pressure  P)  for  temperature- index- 1 
and  species-K  at  end  of  line  segment  DS. 

(cm  at  STP,  atm-cm  at  STP) 

NMOLS  -  Number  (10)  of  molecular  species  in  molecular  transmittance 
model . 

LTMTE  -  Binary  tile  containing  the  band-model  parameters_Yhich  were 
derived  in  Subroutine  TRANSB  from  the  basic  5-cm  resolu¬ 
tion  data.  Here  in  Subroutine  ATMRAD,  File  LTMTE  is 
rewound  for  use  in  Subroutine  TRANS. 

OPTION  Common 

TRNSOPT  -  Logical  variable  .affecting  complexity  of  molecular  trans¬ 
mittance  calculation  (see  Tables  7-8  and  6-10  for  Sub¬ 
routines  TRANSB  and  TRAMS).  In  Subroutine  ATMRAD,  TRANSOPT 
is  used  only  in  the  argument  list  for  the  call  to  Sub¬ 
routine  TRANS. 

Oataset-BI  (Band-Interval  Dataset  No.  115) 

Q(1)=BNL0  BI,  -  Low  and  high  wavelengths  for  wavel ength-band- index  J. 

Q(2)=BNH1  BI  (fm) 

Q(3)=WL0  BI,  -  Low  and  high  wavenumbers  for  wavel ength-band- index  J, 

Q(4)=WHI  BI  (cm‘‘) 

OUTPUT  VARIABLES 

Dataset-81  (Band- Interval  Dataset  No.  115) 

Q(5)=BKGND  BI  -  I n-band- interval  radiance  to  back  of  cell-OS. 

[H/(cm‘^  sr  ba:id-interval )  3 

f)(7)=TRANS  31  -  Product  of  cumulative  molecular  and  aerosol  trans<nit- 
tance  to  back  of  cell-OS.  (dimensionless) 

( conti nued) 
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Table  6-9. 


Input  and  output  variables  for  Subroutine  ATMRAD  (Cont'd). 


Q(8)=IDSBX  B1  -  Cunulative  aerosol  transmittance  to  back  of  v-ell-DS. 

Mote:  This  is  the  second  of  tw  temporary  uses  of  '(tord-8  (and  not  the 
GRC  dictionary  use  of  Word-8).  Here,  it  is  used  to  carry 
information  to  Subroutine  UPWELL. 


Table  6-10.  Input  and  output  variables  for  Subroutine  TRANS. 


INPUT  VARIABLES 

Argunent  List 

NTEMP  -  Number  of  temperatures  in  t.he  atmospheric  transmittance 
model  (set  to  10  in  call  from  either  Subroutine  ATMRAD  or 
TRNSCO). 

M  -  Index  for  mode  of  transmittance  calculation.  Could  be  1, 
2,.. .,15.  Within  the  NBR  Module  (where  TRANS  is  called 
from  ATMRAD,  TRNSCO,  and  UPWELL),  M  is  always  1.  (In  calls 
from  Program  EMISCAT,  M  is  1,  2  and  is  allowed  values  up  to 
15.)  In  Subroutine  TRANS,  M  being  1  limits  use  of  the  U 
and  UP  arrays  to  their  first-half  values.  This  is  consis¬ 
tent  with  the  fact  that  within  the  NBR  Module,  Subroutine 
TRANS  is  always  called  with  M  set  to  1,  U  set  to  'J{  1,1,2), 
and  UP  set  to  UP{1,1,2).  This  is  also  trite  for  calls  with 
M=1  from  Program  EMISCAT.  but  there,  when  M22,  the  calls 
are  with  U  and  UP,  i.e.,  the  entire  arrays. 

For  1=1, NTEMP;  N=1,NSPEC 

U(l,N,l),  -  Path  parameters  U  (species-N  areal  density)  and  UP 

UP(I,N,1)  (product  of  U  and  pressure  P)  for  temperature- index  I  and 

species-N.  (cm  at  STP,  atm-cm  at  STP) 

FK(M)  -  FK(Ml  is  used  only  if  M_3.  In  the  NBR  Module,  M  is  always 
1.  (But  for  those  calls  with  M23  frotti  Program  EMISCAT, 

FK(M)  is  a  set  of  weights  used  to  partition  the  path 
element.) 

( conti nued) 
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Table  6-10. 


Input  and  output  variables  for  Subroutine  TRANS  (Cont'd). 


WDL,  -  Lowest  and  highest  wavenumber  in  the  detector  interval  being 
WDH  used  for  vrfiich  the  transmittance  is  to  be  computed,  (on'^l 

FAST  -  Logical  variable  determining  complexity  of  transmittance 
calculation.  In  calls  to  Subroutine  TRANS  (from  Sub¬ 
routines  ATMRAO,  TRNSCO,  and  UPWELL  within  the  NBR  i-todule 
and  fran  Program  EMISCAT  outside  the  N8R  Module',  FAST  is 
set  to  TRNSOPT. 

=.TRUE.,  Transmittance  is  based  on  single-level  groups  and 
statistical  bands. 

=  . false..  Transmittance  is  based  on  nul  tiple-level  groups 
and  random  Elsasser  bands. 

In  addition,  note  that  for  TRNSOPT  =  .TR'X . ,  Subroutine 
TRANSB  develops  the  band-model  parameters  for  the  user 
inter-,  al  of  interest  and  Subroutine  TRANS  uses  these  band- 
model  parameters  to  compute  the  transmittance  and  optical 
depth  for  the  same  interval.  But  for  TRNS0PT  =  . FALSE . , 
Subroutine  TRANSB  develops  band-model  parameters  for  an 
interval  with  (probably  but  not  necessarily)  higher  resolu¬ 
tion  than  the  user  interval.  Thus,  to  obtain  the  trans¬ 
mittance  and  optical  depth  for  the  user  interval  ,  Sub¬ 
routine  TRANS  first  computes  the  optical  depth  (XS-l  and 
transmittance  [expi-XS.:)]  for  the  hi gher- resol ution  inter¬ 
val  j  and  then  obtains'^ the  transmittance  [TAJ (IS)]  and 
optical  depth  [ABC{IS)]  for  species-IS  in  the  user  interval 
by  using  the  following  expressions  to  perform  the  weighted 
sum  over  those  hi gher- resol ution  intervals  overlapping  tne 
user  interval  . 

TAU(IS)  =Z!f.  exp{-XS.) 

j  ^  ^ 

i  -In  LTA'J(IS)]  for  ■:  TAJ(IS)  <  U  9999 

ABL(IS)  = 

(  ^FjXSj  otherwise. 


These  formulas  are  not  given  in  Volume 

For  additional  information  regarding  the  consequences  for 
Subroutine  iRAf'S  due  to  the  two  possibilities  for  TRANSOPT 
in  Subroutine  TRANSB.  see  Table  7-9  for  Subroutine  ''RANSB. 

( continued) 


174 


Table  5-10.  Input  and  output  variables  for  Subroutine  TRAMS  (Cont'd). 


FILPOS  -  Position  of  file  LTMTS.  Set  to  ’..E+04  in  calls  from  Sub¬ 
routine  TRNSCO  and  ATMRe.D. 

XY  Common 

For  1=1,10 

TT(I)  -  Temperature  array  in  atmospheric  transmission  mode). 

XYZCQM  Conrion 

lTMTE  -  Binary  file  containing  the  band-model  parameters_^ich  were 
derived  in  Subroutine  TRAMSB  from  the  uasic  S-cm'^  resolu¬ 
tion  data.  Equivalenced  (in  Subroutine  tramSB)  to  TAPOT, 
for  which  definition  see  Table  7-8  for  Subroutine  TRANSB. 


for  each  read  of  File  LTMTE,  the  202  words  are  stored  as: 

WTL,  -  Lower  and  higher  wavenumbers  of  inte'^val.  ( cni 

For  1=1,10;  N=l,10 

SOD(I.N),  -  Mean  absorption  coefficient  and  inverse  of  mean  line-spacing 
DEld.M)  parameter  (or  the  effective  line  density)  for  species-l«  at 
temperature- ’ ndex- I  for_the  wavenumber  interval  (WTL.WTH). 
[1/cm  at  STP,  1ines/(cni‘  )] 

***★•*■ 

MsPEC  -  MMOLS,  the  number  (10)  of  species  in  the  molecular  trans- 
m  i  ttance  model . 

OUTPUT  VARIABLES 
Argument  List 

Por  'J=1,NSPEC;  ii  =  l,lS  but  ‘’'=1  for  MBR  Module 

iAj(N,M)  -  T ransmi ttance  for  speties-M.  (dimensionless) 

ABCiV.M)  -  Optical  depth  ff-r  species-'J.  (dimensionless) 

TTBl(M)  -  Molecular  trAr.smi  ttance  of  all  the  species  for  mode-M. 
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SECTION  7 


NATURAL  BACKGROUND  RADIATION  (NBR)  MODULE 


7-1  INTRODUCTION 


The  NBR  Module  is  defined  to  be  a  complete  computer  program  which 
integrates  nine  ROSCOE-IR  models  into  a  consistent,  stand-alone  module  - 
similar  to  the  way  it  exists  in  the  ROSCOE-IR  Program  -  for  the  purpose  of 
developing  and  testing  the  capability  to  compute  the  natural  upwelling 
spectral  radiance  as  a  function  of  altitude.  Table  7-1  provides  a  guide  to 
the  nine  modules  so  integrated;  we  also  include  the  Dynamic  Storage  Allocation 
(DSA)  System  CSP-78]  because  it  plays  such  an  important  role  and  it  is  an 
entity  integrated  into  the  NBR  Module. 


Table  7-1,  Guide  to  modules  integrated  into  the  NBR  Module. 


Title 


Ambient  Atmosphere 
Atmospheric  Aerosols 
Natural  Clouds 

Atmospheric  Thermal  Emission 
Molecular  Transmittance 
Earth  Surface  Characterization 
Earth  Surface  Radiance 
Upwelling  Natural  Radiation 
Solar  Radiation 
DSA  System 


Model 

ROSCOE  Manual 

Number 

Developer 

Volume  Number 

la 

SAl/LJ 

I4a-l,14c 

Ic,  19:  Ic 

VI 

25 

id,  19; Id 

SAl  /PA 

24 

20  b 

GET 

28,31 

Z4d 

GET 

28,31 

23a 

SAl /LU 

'c7.  Sect.  2,3 

23b 

3AI/LJ 

27,  Sect.  5 

23c 

SAl /LJ 

27,  Sect.  6 

23e 

SAI/LJ 

GRC^ 

27,  Sect.  4 

^We  have  used  a  G.E.  Tempo  version. 


7-2 


GENERAL  CODING  INFORMATION  FOR  NBR  MODULE 


7-2,1  Routines  in  NBR  Module 

Table  7-2a  lists  all  the  (non-DSA)  routines  used  in  the  NBR  Module. 
Those  routines  from  the  DSA  System  [SP-78]  we  have  used  in  the  NBR  Module  are 
listed  in  Table  7-2b.  In  Table  7-2a,  each  of  the  routines  is  annotated  by  a 
letter,  defined  in  the  footnotes,  which  identifies  either  the  module  or  a 
category  to  which  it  belongs. 

7-2.2  Calling  Structure  of  Routines 

The  essential  relationships  between  all  of  the  routines  in  the  NBR 
Module  are  shown  in  Figure  7-1;  however,  we  have  omitted  all  the  DSA  routines 
except  for  QINITL  which  we  include  as  a  reminder  that  the  DSA  system  is  there. 
Calls  to  the  left  of  the  heavy  vertical  line  are  those  required  for  inclusion 
of  the  statistical  cloud  submodel. 

In  addition  to  the  routine  names  in  Figure  7-1,  we  include  annota¬ 
tions  to  enhance  the  utility  of  the  diagram.  Near  the  top  of  the  figure,  a 
dashed  line  divides  the  initializing  calls  from  those  made  later  while  looping 
over  the  spectral  bands.  The  T  (for  TRUE)  besides  the  SUN-hexagon  means  the 
indicated  call  is  made  if  the  sun  is  present  (above  the  horizon).  Vectors  V, 
I*,  t,  and  §,  refer,  respectively,  to  positions  for  (a)  the  (fictitious)  view¬ 
ing  point  at  which  the  upwelling  radiance  is  being  calculated,  (b)  a  repre¬ 
sentative  point  on  the  Earth's  surface  toward  which  the  (fictitious)  detector 
at  Point  V  is  pointed,  (c)  the  intersection  of  the  detector's  1 ine-of-sight 
with  the  12-km  altitude  surface  (the  highest  altitude  of  cloud  tops),  and  (d) 
the  sun.  Vectors  such  as  PS  denote  paths  joining  the  indicated  points.  The 
indices  I,J,K,M,  and  L  are,  respectively,  those  for  altitudes,  nadir  angles, 
azimuth  angles,  broad-bands  (frau  Datasct-BN),  and  band-interval s  within  a 
broad-band  (from  Oataset-BI).  On  the  second  and  third  pages  of  Figure  7-1, 
the  indices  I,J,K,  and  L  head  columns  of  entries  which  are  either  1  or  ^  )• 
Each  row  of  such  entires  is  correlated  with  the  call  to  a  routine  (or  a  set  of 
routines)  on  the  same  line.  Such  entries  denote  the  values  of  the  indices  for 
which  the  call  is  made  to  achieve  maximum  econo.Tiy. 
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Table  7-2a.  Routines  in  the  Natural  Background  Radiation  (NBR)  Module. 


Routi ne 

Comment* 

Routine 

Comment 

Routi ne 

Corment 

ACCUM 

T 

GEO  REA 

X 

SOLVE 

A 

AEROSOL 

P 

GEOTAN 

X 

SOLZEN 

A 

AGAGEO 

X 

GEOXYZ 

X 

SORTLJ 

C 

ATMOSU. 

^C.T.E 

GLITTR 

E 

SPCMIN 

A 

ATMRAD 

T^ 

H20SVP 

A 

STEP 

T 

BESSO 

C 

lONOSU 

A 

STEPS 

T 

BK  CDATA 

C 

JULIAN 

A 

SUBVEC 

T,V 

CANGLE 

E 

LINEAR 

C.E 

SURPAD 

E 

CFLOSF 

C 

OZONE 

A 

TAIR 

C 

CLDBDR  ^ 

C 

PATH 

T 

TANGEO 

X 

CLDGEOM^ 

C 

PLANCK 

T,E 

TEMPZH 

A 

CLDWT 

C 

RATCOF 

A 

TRANS 

T 

CLOUDO 

C 

REA  IAN 

X 

TRANSB 

T 

DOT  . 

T,V 

RHOEPS 

C 

TRANSF 

C 

DRVUPy 

u 

RINOUT 

E 

TRNSCO 

T 

EMISSF 

C 

SEGMENT 

T 

UNITV 

T,V 

ERF 

E 

SET  ALT 

U 

UPNELL 

U 

ESUKF 

E 

SGEOM 

C 

VEIN 

T.V 

FITTER 

A 

SHELLS 

T 

WATER 

A 

FRAC 

T 

SOLCYC 

A 

WVOPI 

A 

FRESNL 

E 

SOLORB 

A 

xmit'^ 

T 

GCRCLE 

E 

SOLRAD 

S 

ZTTOUT 

A 

A  Routine  from  Ambient  Atmosphere  Module. 

C  Routine  from  Statistical  Submodel  of  Natu»’al  Cloud  f^dule. 

E  Routine  from  Earth  Surface  Characterization  and  Radiance  Module. 

P  Routine  fron  Atmospheric  Aerosols  Module. 

S  Routine  from  Solar  Radiation  Module. 

T  Routine  from  Atmospheric  Thermal  Emission  and  Molecular  Transmittance 
Modules . 

U  Routine  from  Upwelling  Natural  Radiation  Module. 

V  Routine  for  relations  between  vectors. 

X  Routine  for  transformation  of  coordinates. 

a  A  duitmy  routine  to  simulate  that  from  the  Deterministic  Submodel  of  the 
Natural  Cloud  Module  which,  though  loaded  to  satisfy  externals,  is  not 
otherwise  used. 

b  This  roi'tine  is  a  FORT.-iAN-language  version,  prepared  by  L.  Ewing,  of  the 
COMPASS-1 anguage  routine  used  in  the  GRC  DSA  System.  Here,  it  is  used 
independent  of  its  role  in  the  DSA  System. 

c  Employs  the  DSA  System. 
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Table  7-2b.  Routines  from  the  DSA  System  used  in  the  NBR  Module. 


CREATEP*^ 

MEXT^’^ 

()CREAT 

QGCBLK 

QZBLOK 

GREAT  X 

NLOKDS 

QDSRED 

QGOBLK 

REMOVE 

DSPWRQP 

PUTAFT 

QDSRYT 

QGRBAG 

WIPOUJP 

DSTROY^ 

PUTBOT^’'^ 

OERROR 

QGTZWD 

XMIT*^ 

imdmrdP 

putord'^ 

QFIELO 

qihitlP 

LOCKDS^ 

QCEASt 

QFLDST 

QPTZWO 

^Primary  calls. 

^Has  entry  point  CREATL^. 

^Has  entry  points  PREV*^  and  PREVNE*^. 
^Has  entry  point  PUTTOP^. 

^Has  entry  point  PUTORA^. 


7-2.3  Description  of  Routines;  Function  Performed,  Oriqinator,  and  Loca¬ 
tions  of  Listing  and  Input-Output  Table 

In  Table  7-3a,  for  all  the  (non-DSA)  routines  in  the  M3R  Module  (as 
listed  in  Table  7-2a),  we  provide  a  short  description  of  the  routine's  func¬ 
tion.  We  also  identify  (a)  the  oraanization  (if  not  SAI 1  originating  the 
routine,  (b)  the  number  of  the  volume  in  the  ROSCOE  Manual  containing  a  list¬ 
ing  of  the  routine,  and  (c)  the  number  of  the  table  in  Volume  27  when  we  have 
summarized  the  inputs  and  outputs  for  the  routine. 

In  Table  7-3b,  we  provide  a  short  description  of  those  DSA  routines 
wh.ich  arc  called  directly  from  the  NSR  Module. 


DRVUPW 


Figure  7-1.  Reiationships  between  the  routines  in  the  Natural  Barkgroiind  Radiation  Module. 


All  Band-Interval  Wavenumbers  IL) 


FIGURE?  1.  (CONTINUED) 


FIGURF  7-1.  (CONTINUED) 


Table  7-3a.  Description  of  routines  in  NBR  Module;  function  performed, 
originator,  and  locations  of  listing  and  input-output  table. 


Routine 

ACCLW 

AEROSOL 

AGAGEO 

ATMOSU 

ATMRAD 

BESSO 

BKDATA 

CDATA 

CAfJGLE 


Function  performed 

Integrates  (between  X=A  and  X=B)  a  function  F(Xl  given  at  two 
points  XI  and  X2,  by  using  linear,  logarithmic,  or  power- law 
interpolation,  corresponding  to  specified  ITYPE  =  1,2,3,  respec¬ 
tively;  uses  linear  interpolation  in  case  the  other  methods  would 
fail.  (GET  routine;  listing  in  Vol .  27.) 

Computes  attenuation  coefficients  for  scattering  and  absorption 
(and,  though  not  used  in  the  NBR  Module,  the  asyimetry  factor 
(average  cosine  of  the  scattering  angle))  due  to  atmospheric 
aerosols,  given  the  altitude  and  wavelength.  (VI  routine;  see 
Vol.  26  for  original  routine  which  differs  slightly  from  ours  in 
Vol.  27.  Input-output  in  Table  5-4.) 

Provides  the  geographic  coordinates  (colatitude  and  east  longi¬ 
tude)  of  Point  2,  given  the  geographic  coordinates  of  Point  1, 
the  azimuth  and  Earth-central  angle  of  Point  2  with  respect  to 
Point  1,  and  the  height  of  Point  2.  (A  modified  MRC  HARC 
routine;  listing  in  Vol.  27.  Input-output  in  Table  6-3.) 

Computes  the  properties  of  the  undisturbed  atmosphere,  giver  the 
altitude  (ZH),  after  the  associated  subroutines  coimpute  the  local 
apparent  time  (HE),  solar  flux  (SBAR),  and  day-or-night  parameter 
(lOORh).  (Listing  in  Vol.  I4a-1.) 

Computes  the  atnospheric  volume  emission  on  an  optical  path. 

(GET  routine;  listing  in  Vol.  27.  Input-output  in  Table  6-9.) 

Provides  the  zero-oroer  cylindrical  Bessel  function  per  Formulas 
9.4.1  and  9.4.3  in  AS-64  (Listing  in  Vol,  24.) 

Provides  (1)  for  14  cloud  types,  their  (a)  base  altitude,  (b) 
thickness,  (c)  water  droplet  radius,  ( d)  water  droplet  density, 
and  ( e)  optical  scattering  properties  (extinction  and  scattering 
cross-sections  and  mean  cosine  of  scattering  angle!  at  lo  wave¬ 
lengths  in  the  ?-  to  6- .m  range,  and  (?)  for  Regions  4  and  U  in 
the  NASA  cloud-data  base,  (a)  tne  stati stical -cloud  indn.  (n) 
occurrence  frequencies  of  cloud  types,  and  (t)  occurrence  fre¬ 
quencies  of  number  of  cloud  layers.  (Listing  in  Vol.  24.) 

CoiiiDi’tes  the  Earth-central  angle  (CAMGLE)  between  the  two  central 
rays  to  Points  and  P2,  given  the  north  ’atituries  and  east 
longitudes  of  Points  PI  and  P2 .  (Listing  in  vol.  21.  Input- 
output  in  Table  u-o.) 


(  cijnt  i  nued  ! 


Table  7 

CFLOSF 

CLDBOR 

CLDWT 

CLOUDO 

DOT 

DRVUPW 

tMISSF 


-3a.  Description  of  routines  in  NBR  Module;  function  perforaed, 
originator,  and  locations  of  listing  and  input-output 
table  (Cont'd). 


Computes  the  probability  of  a  cloud- free  1 ine-of-sight  (CFLOS)  as 
a  function  of  the  cloud  coverage  (expressed  in  tenths)  and  zenith 
angle  of  the  LOS  from  the  ground.  (Listing  in  Vol .  24.) 

Provides  the  bidirectional  reflectance  ll/sr)  of  a  plane,  semi¬ 
infinite  stratocunulcus  (KCL0UD=4)  cloud  for  a  photon  of  wave¬ 
length  ALAM  incident  at  zenith  angle  THIN  ^  ACOS(CTHIN)  and  re¬ 
flected  at  zenith  angle  THOUT  =  AC0S{CTH0UT)  and  azimuth  angle 
PHIOUT  =  ACOS(CPHIOUT) .  (Listing  in  Vol.  24.)  Known  as  ALBEDC 
in  ROSCOE-IR. 

Computes  (for  a  given  source  and  detector  location)  three  arrays 
(TRANS,  EMISS,  and  WT),  each  with  IDX  members  (normally  160). 

The  TRANS  and  EMISS  arrays  are,  respectively,  (1)  the  distribu¬ 
tion  of  i rradiance- to- radiance  transfer  coefficients  (1/sr)  at 
the  12-km  altitude  transfer  point  for  clouds  and  (2)  the  distri¬ 
bution  of  (attenuated)  spectral  cloud-emission  radiances  at  12-k.m 
altitude  and  directed  toward  the  detector.  The  WT  array  is  the 
set  of  weights  associated  with  the  set  of  statistical  cloud  con¬ 
figurations,  influenced  by  cloud- cover age  fractions  and  cloud- 
free  1  ine-of-sights  from  the  detector.  (Listing  in  Vol.  24.) 

Reads  (a)  a  flag  (MODE)  indicating  by  a  value  of  u  or  1  whether 
the  deterministic-  or  statistical-cloud  submodel  is  desired,  (b) 
cloud  data  appropriate  to  the  indicated  submodel  and  makes  the(i> 
available  to  the  appropriate  routines.  For  M0DE=1,  the  routine 
reads  an  index  KMOOEL  which  selects  data  from  that  in  the  code  or 
allows  the  user  to  input  his  own  data.  Other  flags  are  read 
which  allow  selected  portions  of  ttie  provided  data  to  be  over¬ 
ridden.  These  user-provided  data  are  output  through  CLDFRQ  and 
CONFIG  Commons  and  override  data  in  BLOCK  DATA  CDATA.  (Listing 
i n  Voi .  24. ) 

Computes  the  dot  product  of  two  vectors.  (GET,  GRC  routine; 

1 i sting  in  Vol .  27. ) 

Drives,  and  provides  a  means  for  testing,  the  NBR  Itodule,  by 
accepting  the  necessary  input  data  for  each  of  the  modules  (see 
Table  7-1)  integrated  into  the  NBR  f-iodule  and  printing  selected 
results.  (Listing  in  Vol.  2'’.) 

Computes  the  (attenuated)  spectra)  radiance  at  If-ktn  altitude 
for  radiation  emitted  (at  a  specified  zenith  angle)  from,  a  cloud 
top  at  a  specified  altitude.  (Listing  in  Vol.  24.) 


l  r  cnli  'iued  ; 


Table 

ERF 

ESURF 

FITTER 

FRAC 

FRESNL 

GCRCLE 

GEOREA 

GEOTAN 


-3a.  Description  of  routines  in  NBR  Module;  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  (Cont'd). 


Evaluates  the  error  function,  based  on  the  rational-approximation 
Formula  7. 1.2. 6  in  AS-64.  (Listing  in  Vol.  27.) 

Provides  the  bidirectional  reflectance-distribution  function 
(BRDF),  directional  emissivity,  and  temperature  of  the  Earth's 
surface  at  the  intersection  point  of  the  optical  1 ine-of- sight 
with  one  of  the  seven  allowed  categories  of  surface  materials. 

(The  surface  temperature  is  approximated  by  using  the  atmospheric- 
model  temperature.)  (Listing  in  Vol.  27,  Input-output  in  Table 
2-12. ) 

Computes,  by  the  method  of  least  squares,  the  coefficients  Z(J) 
(J=1,N)  in  a  polynomial  of  degree  N  representing  the  dependent 
variable  Y(I)  (or,  optionally,  its  natural  logarithm)  specified 
(and  given  equal  weights)  at  NPTS  values  of  the  independent  vari¬ 
able  X(I).  (Listing  in  Vol.  14a-l.) 

Computes  the  fraction  of  interval  (A,B)  either  contained  in  in¬ 
terval  (X,Y)  if  (A,B)  _<  (X,Y)  or  covered  by  interval  (X,Y)  if 
(A,B)  >  (X,Y).  (GET  routine;  listing  in  Vol.  27.) 

Evaluates  the  Fresnel  (specular)  monochromatic  reflectance  of  a 
smooth  water  surface  (characterized  by  a  complex  index  of  refrac¬ 
tion),  given  the  wavelength  (in  the  2-  to  5-am  range)  and  angle 
of  incidence.  (Listing  in  Vol.  27.  Input-output  in  Table  3-4.) 

Computes,  for  three  Points  PI,  P2  and  P3  on  a  great  circle,  the 
latitude  and  longitude  of  the  intermediate  point  P2,  given  the 
latitudes  and  longitudes  of  the  end  points  PI  and  P3,  the  central 
angle  ALP13  between  the  central  rays  to  PI  and  P3,  and  the  cen¬ 
tral  angle  ALP12  between  the  central  rays  to  PI  and  P2.  (Listing 
in  Vol.  27.  Input-output  in  Table  3-5.) 

Provides  the  slant  range,  elevation  angle,  and  azimuth  angle  of 
Point  2  with  respect  to  Point  1,  given  the  geographic  coordinates 
(altitude,  colatitude,  and  east  longitude)  of  the  two  points.  (A 
modified  MRC  HARC  routine;  listing  in  Vol.  27.  Input-output  in 
Table  6-4. ) 

Provides  the  tangent-plane  coordinates  of  Point  2  with  respect  to 
Point  1,  given  the  geographic  coordinates  (altitude,  colatitude, 
east  longitude)  of  the  two  points.  (A  modified  MRC  HARC  •'outine 
called  GEOXYZ;  listing  in  Vol.  27.  Input-output  in  Table  6-5.) 
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GEOXYZ 

GLITTR 

H20SVP 

IGrJOS'd 

JULIAN 

LINEAR 

OZONE 

PATH 


-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  (Cont'd). 


Converts  the  geographic  coordinates  (altitude,  north  latitude, 
east  longitude)  of  a  point  to  Earth-centered  Cartesian  coordi¬ 
nates.  (Listing  in  Vol.  27.  Input-output  in  Table  5-3.) 

Provides,  upon  being  called  from  Subroutine  ESURF  vghen  the  line- 
of-sight  intersects  a  water  surface,  (la)  the  bidirectional  re¬ 
flectance-distribution  function  (BRDF)  and  (lb)  directional 
emissivity  of  the  water  surface  at  the  intersection  point  of  the 
optical  1 ine-of-sight  fran  the  detector  and  (2)  the  geographic 
coordinates  (north  latitude  and  east  longitude)  of  the  point  on  a 
smooth  horiiontal  surface  for  a  specular  reflection  of  a  ray  fra.i 
the  source  to  the  detector,  if  requested  (by  logical  parameter 
SPCULR=.TRLIE .  in  argjnent  list).  Only  the  directional  emissivity 
is  provided  if  there  is  no  source.  (Listing  in  Vol.  27.  Input- 
output  in  Table  3-2.) 

Computes  the  saturation  vapor  pressure  of  water  vapor  over  a 
plane  surface  of  (1)  water  for  the  temperature  range  from  173.15 
to  373.15  deg  K  (-100  to  +100  deg  C)  and  (2)  ice  for  the  tempera¬ 
ture  range  from  173.15  to  273.15  deg  K  (-100  to  0  deg  C). 

(Listing  in  Vol ,  14a-l . ) 

Provides  the  properties  of  the  ambient  ionosphere  required  by  all 
the  chemistry  modules.  (Listing  in  Vol.  14a-l.) 

Converts  a  Gregorian  calendar  date  to  Julian  day  number  DAYJ  for 
Subroutine  SOLORB.  (Listing  in  Vol.  14a-l.) 

Performs  a  linear  interpolation  to  find  FXO  at  a  given  XO.  given 
the  independent  variaole  array  XX(I)  and  the  corresponding  depen¬ 
dent  variable  array  FXXII).  FXO  is  set  to  zero  if  XO  is  not 
within  the  range  of  XX(I).  An  efficient  search  is  used. 

(Li  sting  in  Vol .  24. ) 

Computes  tlie  latitude  and  season  dependence  of  ozone  for  alti¬ 
tudes  from  0-  to  55-km.  (For  hinder  altitudes,  see  Subroutine 
SPCMIN.)  (Listing  in  Vol.  i4a-l.) 

Develops  the  cumulative  values  of  the  path  parameters  J(!,N,21 
(species-N  areal  density)  and  'JPiI,N,2)  (product  of  U  and  pres¬ 
sure  P)  for  temperature- index  I  and  species  N  at  end  of  line- 
segment  DS(J+1),  expressed,  respectively,  in  cm  at  STP  and^atm-cm 
at  STP  (if  Loschmidt's  number  is  expressed  in  molecules'cm 
ST°).  Incremental  values  are  obtained  frixn  Subroutine  SEGMENT. 
(GET  routine;  listing  in  '.ol  .  2^.  'np'jt-nutnut  in  Table  5-5.) 

(continued) 
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Table  7*3a.  Description  of  routines  in  MBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  ( Cont'd) . 


PLANCK  Computes  tbe  blackbody  spectral  radiance.  iGLT  routine;  listing 

in  Vol .  27,  Input-output  in  Table  5-6.) 

RATCOF  Provides  the  rate  coefficients  neeaed  for  the  c-  and  F-region 

ionosphere  model  used  in  RCSCOE-IS.  (Listing  in  Vol.  Ua-l.) 

REATAN  Provides  the  tangent-plane  coordinates  of  a  point  with  respect  to 

some  reference  location,  given  the  slant  range  elevation  angle, 
and  azimuth  angle  of  the  point  with  respect  to  ^ne  same  reference 
location.  (A  modified  MRC  HARC  routine  called  REAXYZ;  listing  in 
Vol.  27.  Input-output  in  Table  6-6.) 

RHOEPS  Computes  the  hemispherical-directional  reflectance  froni  the  (hori¬ 

zontal)  surface  of  cloucl-cype  4  { stratoctmiulous)  for  radiation  of 
',-avelength  l  reflected  into  zenith  angle  (Listing  in  Vol.  2".) 

RINOUT  Computes  -  when  given  the  geograpnic  location  (altitude,  north 

latitude,  east  longitude)  of  the  sources  (sun  and/or  fireballs), 
the  detector,  and  the  position  ?  of  the  intersection  of  the  line- 
of-sight  from  the  detector  to  the  Earth's  surface  -  the  zemth 
angles  and  slant  ranges  of  the  sources  from  P  and  the  direction 
of  tne  ray  from  P  toward  the  detector  in  terms  of  the  zenith 
angle  of  the  detector  and  (if  the  surface  is  not  Lambertian 
(VAT  =  l)  or  water  ((^-2))  the  absolute  value  of  the  azimuth 
angle  of  scatter  with  respect  to  the  principal  plane  containing 
the  incoming  ray.  (Listing  in  Vol.  27.  Input-output  in  Table 
5-2.) 

SEGMENT  Computes  the  incremental  values  of  tne  patn  parameters  J>J(I,N) 

and  GDP([,N),  for  temperature- i ndex  I  and  species  N,  for  the  lii'ie- 
segment  DS ,  based  on  a  linear  variation  of  the  properties  in  Ds. 
Units  are,  respectively,  cm  at  STP  and  atm-cm  5TP  (if 
Loschmidt's  number  is  e>pressed  in  molecules,  cm  at  STP),  Cunul  a- 
tnvc  values  are  formed  in  Subroutine  PATH.  iGET  routine:  listi.rg 
in  Vol.  27.  Input-output  in  ^able  5-7.) 

SE'^ALT  Determines  the  altitudes  at  which  Subroutine  jPxELL  computes  the 

upwelling  natural  radiation.  A  set  of  cnaracteri sti c  altitudes 
has  been  previously  selected  for  each  of  the  IJ  spectial  bins 
spanning  the  2-  to  5-„m  range.  If  tne  wavelength-band  of 
interest  (.ALMIN,  ALMAV)  spans  more  than  one  bin,  a  set  of  alti¬ 
tudes  is  obtained  by  combining  those  for  each  of  the  sparneo 
bins.  (Listing  in  Vol.  27.  Input-output  in  ’'able  ’-’..i 
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SGE.T'M 

SHELLS 

SOLCYC 

SOLOR8 

SOL RAO 

SOLVE 

SOL  ZEN 


'3a.  Description  of  routines  in  NBR  Module;  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  (Cont‘di . 


Computes  the  geometrical  relations  between  a  '•ource ,  (statis¬ 
tical)  cloud  layer,  and  detector.  (Listing  in  Vol .  24.) 

Prepares  arrays  of  physical  properties  at  spherical-shell  bound¬ 
aries  used  in  calculating  molecular  transmittance  through  the 
ambient  atmosphere.  Properties  at  each  she! 1 -boundary  are  alti¬ 
tude,  temperature,  pressure,  and  number  densities  of  species 
(CH^,  CO,  CO^.  H^O,  NC,  NO  ,  NO^,  N^O,  0,,  and  OH).  For  infor¬ 
mation,  the  water  content  of  the  atmosphere  above  each  shell 
boundary  is  also  computed,  expressed  ’n  units  of  precipitable 
centimeters.  (Modified  GET  routine;  listing  in  Vol.  27.  Input- 
output  in  Table  7-9. ) 

Computes  the  solar  flux  (S6AR),  an  input  to  ATMOSU  through  ATMOdP 
Cormion,  based  on  an  assimed  sinusoidal  11 -year  (or  dOlS-day) 
variation,  with  the  maximun  value  of  260  for  SBAS  associated 
with  the  CIRA-65  Model  9)  occurring  on  1  June  195L,  1  June  1969, 

1  June  1980,  etc.  and  with  the  minimum  value  of  o5  for  SBAR  (asso¬ 
ciated  with  the  CIRA-65  Model  1)  occurring  on  1  December  1963,  1 
December  1974,  1  December  1985,  etc.  (Listing  in  Vol.  14a-l.i 

CoHi^utes  the  north  latitude  (SOLLAT)  and  east  longitude  (ShLLON) 

Oi  cne  apparent  (actual  motion)  subsolar  point,  given  the  Julian 
day  number  at  0  hours  UT  on  1  January  of  the  year  of  interest 
lYRFJ),  the  Julian  date  at  which  vernal  equinox  occurs  (VEQJ), 
the  Julian  day  number  at  0  hours  on  the  day  of  interest  (DAYJ), 
and  the  universal  time  (OT).  (Listing  in  Vol.  14a-i.) 

Provides  the  solar  spectral  irradiance  at  the  top  of  the  Earth's 
atmosphere,  in  the  spectral  range  from  2-  to  S-um  (or  5000-  to 
2000-wavenumbers) .  The  NASA  data  adopted  by  the  ASTM  have  been 
fitted  by  piecewi se-continuous  power-law  expressions.  (Listing 
in  Vol.  27.  Input-output  in  Table  4-2.) 

Solves  a  set  of  N  simultaneous  linear  algebraic  equations  by 
using  the  Gauss-Jordan  method  with  maxinum  pivot  feature. 

(Li  sting  in  Vol  14a-l . ) 

Computes  (1)  the  cosine  of  tne  zenith  angle  of  the  sun  at  a  Point 
P  (COSCm),  given  the  geographic  north  latitude  (PLAT)  and  east 
longitude  (PLON)  of  the  Point  P  and  tJie  north  latitude  (SOlLAT) 
and  Cast  longitude  (SOLLON)  of  tne  subsolar  point,  (2)  the  day-or- 
niglit  parameter  (IDORN),  which  is  1  if  COSLHI  ^  o.O  and  D  other¬ 
wise.  and  (3)  the  local  apparent  time  (HL),  from  the  Greenwich 
apparent  time  (GAT)  and  the  longitude  PLCN.  (Listing  in  Vol. 
14a-l. ) 
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SORTU 

SPCMIN 

STEP 

STEPS 

SUBVEC 

SURRAD 


-3a.  Description  of  routines  in  NBR  Module;  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  { Cont' d) . 


Sorts  an  array  A  of  length  N  from  low  to  high  (if  LOHI  £0)  or 
from  high  to  low  (if  LOHI  >  0).  Two  additional  arrays  are  simply 
carried  along  in  the  sorting  process.  (Listing  in  Vol.  ?4  is 
adequate  for  use  with  Clouds  Module  but  listing  in  Vol.  27  must 
be  used  for  NBR.  Module.) 

Provides  analytic-fit  profiles  at  all  altitudes  of  the  minor 
species  (N,  NO,  NO^,,  O,,  02(^a  ),  and  H^Oi  not  provided  by  Sub¬ 
routine  ATMOSU  but  needed  oy  the  chemistry  modules,  by  using 
tabular  data-base  species-densities.  Ror  ROSGOE-IR,  also  pro¬ 
vides  for  CO.  Nj,0,  CH.,  H,  OH,  HO^.  N(  D),.N(^P),  and  OC'dK  as 
well  as  rev i sed^prof i les  of  0,,  H^O,  N,  N(  s),  and  NO.  (Listing 
in  Vol .  14a- 1 . ) 

Calculates  the  intersections  of  an  optical  path  with  the  bound¬ 
aries  of  the  atmospheric  shells  determined  in  Subroutine  SHELLS. 
Path  elements  less  than  10  meters  in  length  are  assigned  to  the 
neighboring  shell.  The  output  includes  (a)  the  number  of  path 
segments  (plus  one)  on  the  transmission  path,  (b)  the  length  of 
the  path  segment  along  the  transmission  path,  (c)  the  weight 
associated  with  the  Ith  end  point  appropriate  for  finding  at  that 
point  the  1  inearl y- interpolated  value  of  the  parameter,  and  (d) 
the  index  of  the  shell  boundary  at  or  just  before  the  start  of 
the  line  segment.  (GET  routine;  listing  in  Vol.  27.  Input- 
output  in  Table  5-8. ) 

Serves  effectively  as  an  entry  to  Subroutine  STEP,  given  the 
optical  path  defined  by  its  end  point  vectors  RX(I)  and  RY ( I ) . 

(GET  routine;  listing  in  Vol.  27.  Input-output  in  Table  5-9.) 

Returns  the  difference  between  vectors  VX  and  VY,  i.e.,  DVXY 
(1-3)  =  VX(l-3)  ■  VY(l-3).  (GET  routine,  equivalent  to  GRC 
routine  with  same  name  and  argument  list;  listing  in  Vol.  27.) 

Provides  (essentially)  the  upwelling  radiance  directed  toward  the 
detector  at  the  point  where  the  optical  1 ine-of- sight  intersects 
the  Earth’s  surface.  This  version  of  SURRAD  provides  two  com¬ 
ponent;  of  the  radiance:  (1)  thermally  emitted  ir  i  (2)  source 
(sun  or  fireball)  reflected.  Reflected  sky  radiance  is  not  in¬ 
cluded.  Strictly,  the  source- re flee ted  component  is  actually 
provided  in  an  unattenuated  form  together  with  the  oath  param¬ 
eters  (species  areal  density  U  and  UP,  with  P  the  pressure), 
integrated  along  the  incoming  path  from  the  source,  required  as 
input  to  a  computation  of  the  molecular  absorption  over  a  total 
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TANGE  0 


TEMPZH 


TRANS 


TRAN  SB 


-3a.  Description  of  routines  in  .  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
tabl e  ( Cant'd) . 


path.  The  aerosol  transmittance  along  the  incoming  path  from  the 
source  is  also  provided.  The  statistical  cloud  submodel  is  also 
included;  see  Subroutine  UPWELL  for  comments.  Note  that  the 
input  parameters  for  Point  C  in  POSITN  Common  ^nd  IKM  in  UPWELS 
Coninon  facilitate  providing,  as  additional  outputs  for  the  path 
from  the  sun  to  Point  C  at  12-km  altitude,  the  patn  parameters 
UCS  and  UPC5  and  the  aerosol  transmittance  TASC(LUP).  (listing 
in  Vol.  27.  Input-output  in  Table  5-1.) 

Provides,  for  use  within  the  statistical-cloud  submodel,  the 
molecular  transmittance  for  radiation  of  viavelength  ALAM  from 
altitude  ALT  to  12  km  along  a  path  at  zenith  angle  THETA,  by 
i nterpol ati ng  results  from  using  the  AFGL  LOWTSAN-III  code  with 
the  1962  U.S.  Standard  Atmosphere.  (Listing  in  Vol.  24.) 

Provides  the  geographic  coordinates  of  a  Point  2,  given  the  geo¬ 
graphic  coordinates  of  Point  1  and  the  tangent-plane  coordinates 
of  Point  2  with  respect  to  Point  1  (called  Subroutine  XYZGEO  in 
ROSCOE-Radar) ,  (A  modified  MRC  HARC  routine  called  XYZGEO; 
listing  in  Vol.  27.  Input-output  in  Table  6-7.) 

Determines  the  temperature  profile  (tabular,  0(4)120  km)  by  inter¬ 
polating  the  data  base  (U.S.  Standard,  1966)  for  latitude  and 
season,  to  be  used  as  input  to  the  major  atmospheric  species 
model  for  the  low-altitude  range  from  0-  to  120-km  altitude. 

(Li sti ng  in  Vol .  14a-l . ) 

Provides  the  molecular  transmittance  and  optical  depth  for  each 
of  the  ten  species  and  the  total  molecular  transmittance  in  a 
specified  wavenumber  interval,  given  the  parameters  U  (cm  at  STP) 
and  UP  (atm-cm  at  STP)  for  the  total  transmission  path.  (GET 
routine;  listing  in  Vol.  27.  Input-output  in  Table  b-10.) 

Processes  the  5-cm'^  resolution  band-model  parameters  file  so  as 
to  (1)  eliminate  the  data  for  the  unwanted  spectral  regions  and 
(2)  derive  new  parameters  with  modified  resolution  in  accordance 
with  the  user-setting  of  the  logical  variable  TRNSOPT.  The 
method  for  TRNSOPT  set  to  .TRUE.,  for  faster  but  less  accurate 
calculations,  provides  in-band  averaged  band-model  parameters. 

The  method  for  TRANSOPT  set  to  .FALSE.,  tor  slower  but  more 
accurate  calculations,  provides  band-model  parameters  at  a  finer 
resolution,  actually  0.5  of  the  narrowest  user  wavenumber  bond- 
interval,  but  within  the  range  of  5  to  50  cm"'* .  The  two  band- 
model  parameters  are  (a)  S(I,1S),  the  mean  absorption  coefficient 

(conti nued) 
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Tabl  e 


TRANSF 


TRNSCO 


UNITY 


UPWELL 


-3a.  Description  of  routines  in  NBR  Module:  function  perfonneJ, 
originator,  and  locations  of  listing  and  input-output 
tabl“  (Cont'd). 


for  species-IS  at  temperature- i ndex-1  for  the  interval  DVi,  cm 
at  STP,  and  (b)  DE(I,IS),  the  inverse  of  meanjine-spaci ng  param¬ 
eter,  or  the  effective  line  density,  lines/cm  .  (GET  routine; 
listing  in  Yol .  27.  Input-output  in  Table  7-8.) 

Computes  a  quantity  defined  in  the  natural  statistical-cloud 
submodel  as  the  irradiance-to-rad iance  transfer  coefficient 
(l/sr)  or  simply  the  transfer  coefficient  at  the  intersection  of 
the  detector  LOS  vector  with  12-kni  altitude  (known  as  the  trans¬ 
fer  point).  The  transfer  coefficient  is  actually  the  ratio  of  a 
radiance  and  an  irradiance.  The  radiance  is  that  directed  anti¬ 
parallel  to  the  detector  LOS  vector  and  the  irradiance  is  the 
(unattenuated)  source  irradiance  at  the  transfer  point.  For  a 
source  above  12-km  altitude  and  far  from  the  transfer  point  (as 
for  the  sun),  the  transfer  coefficient  becomes  essentially  the 
bidirectional  reflectance  of  the  cloudtop  times  the  cosine  of  the 
zenith  angle  of  the  incident  ray.  For  a  source  below  or  within 
the  clouds  (conditions  not  allowed  in  NBR  Module),  the  transfer 
coefficient  depends  on  the  details  of  the  diffusion  solution  to 
the  transport  of  radiation  through  the  clouds.  (Listing  in  Vol . 
24.) 

Provides,  i'or  RADSW  =  .TRUE.  as  in  the  NBR  Module,  a  call  to  Sub¬ 
routine  ATMRAD  to  evaluate  Words-5,  -7,  and  -8  of  Dataset-BI  ( i n- 
band- ’’nterval  radiance,  product  of  molecular  and  aerosol  trans¬ 
mittance,  and  aerosol  transmittance).  (GET  routine;  listing  in 
Vol.  27.  Input-output  in  Table  6-8.) 

Returns  the  unit  vector  VXHAT(l-3)  along  the  vector  VX(l-3). 

(GET  routine,  equivalent  to  GRC  routine  with  same  name  and  argu¬ 
ment  list;  listing  in  Vol.  27.) 

Computes  -  for  a  Point  V  at  each  of  a  set  of  NALTJ  altitudes 
above  a  given  geographic  position,  specified  in  UPWELS  Cornion 
(UPWALT,  UPWLON,  UPWEAT)  and  characterized  by  material  MSm  and 
property  DD(MSM)  -  the  natural  upwelling  spectral  radiance 
directed  towards  Point  V  from  Points  P  located  on  the  Earth's 
surface  with  respect  to  Point  V  at  NNADIR  representative  nadir 
angles  and  NAZI  representative  azimuth  angles.  This  upwelling 
radiance,  UPRAO ( I ,J ,K,L 1 ,  includes  contributions  from  (1)  air 
emission  between  Points  V  and  P,  (2)  surface  emission  at  Point  P, 

( conti nuod) 
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Table  7-3a. 


Description  of  routines  in  N8R  Module;  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  (Cont'd) . 


VLIN 

WATER 

WVOPT 

XMIT 

ZTTOUT 


and  (3)  the  solar- re flee ted  radiation  at  each  of  the  Points  P. 
Values  of  the  radiance  UPRADd  ,d,K,L)  are  averaged  over  azimuth 
angles  to  give  UPRAOAi I ,J ,L)  and  over  nadir  angles  to  give 
UPRADNd  ,L,JBANDl .  For  inclusion  of  natural  (statistical) 
clouds,  distribution  functions  of  the  radiance  are  obtained 
instead  of  the  single  values  in  the  absence  of  clouds.  Selected 
percentiles  (10,  25,  50,  90,  100)  of  the  corresponding  integral 
distributions  are  output. 

Note  that  for  the  GRC  version  of  the  NBR  f\)dule  integrated  into 
ROSCOE-IR,  the  array  L'PRADN{ I .L.JBAND)  (for  altitudes  >  12  km  and 
if  clouds  are  included)  is  resei,  as  uPRADNd  ,L,JBAND)  =  R050M 
(IKM,L)  +  ARCVNdKM.L),  which  is  transferred  through  UPWELS 
Common  to  (the  GRC)  Subroutine  UPWELT.  Thus,  in  the  GRC  version, 
for  altitudes  ZKM  i  12 -km,  UPRAON  is  not  the  cloud- free  result 
but  the  50-percentile  of  the  radiance  distribution  function  for 
statistical  clouds  (if  included  in  the  problem).  (Listing  in 
Vol .  27.  Input-output  in  Table  6-2.) 

Returns  the  linear  combination  of  two  vectors,  X(l-3)  =  A*Y(l-3) 

+  0*Z(l-3).  (GET  routine,  corresponds  to  GRC  routine  VECLIN  with 
transposed  arguments;  listing  in  Vol. 27.) 

Computes  the  longitude,  latitude,  and  season  dependence  of  water 
vapor  for  altitudes  from  0-  to  45-km.  (For  higher  altitudes,  see 
Subroutine  SPCMIN.)  (Listing  in  Vol.  14a-l.) 

Allows  the  user  to  bypass  the  normal  treatment  (achieved  by  set¬ 
ting  WVFLAG  =  0.0)  of  water  vapor  in  Subroutine  5PCMIN  for  the 
altitude  range  from  0  to  120  km.  The  user  effects  the  bypass  by 
reading  in  WVFLAG  ,GT.  0.0  and  his  own  data  in  one  of  four 
optional  forms  according  to  METHOD  =  1,  2,  3,  4.  (Listing  in 
Vol.  14a-l.) 

Returns  an  array  Y  copied  from  a  given  array  X  of  length  LX  if  LX 
>  0  and  sets  Y  (of  length  ILXI)  to  a  constant  X(l)  if  LX  <0.  (A 
COMPASS-1 anguage  version  of  the  routine  is  used  with  the  GRC  DSA 
system,  though  no  listing  of  it  is  included  in  5P-78.  We  have 
used  a  FORTRAN  version  of  the  routine  prepared  by  L.  Ewing  of 
G.E.  Tempo.  Listing  in  Vol.  27.) 

Converts  a  Gregorian  calendar  date  (expressed  as  20th  century 
year  (lYRS),  month  (MONS),  and  day  UDAYS))  and  zone  time  (ZT)  at 
east  longitude  PLON  to  the  Gregorian  calendar  date  and  mean  time 
(uT)  at  Greenwich,  (Listing  in  Vol.  14a-l.) 
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Table  7-3b.  Description  of  Dynamic  Storage  Allocation  routines 
called  directly  from  the  NBR  Module. 


Routine 

CREATE 

CREATE 

DSPWRO 

DSTROY 

INDWRD 

LOCKDS 

NEXT 

PREV 

PREVNL 

PUTBOT 

PUTORA 

PUTTOP 

QINITL 

WIPOUT 


Function  Performed 


Creates  a  dataset  of  (at  least)  n+1  words  and  returns  the  dataset 
index  (the  pointer  to  the  first  (not  zeroth)  word  of  the  dataset). 

Performs  the  same  as  in  Subroutine  CREATE,  except  that  the 
dataset  lock  value  and  lock  count  are  set  to  1  (locked). 

Returns  the  pointer  to  the  DSP  word  for  the  dataset  specified  by 
its  index. 

Returns  to  the  system  the  space  occupied  by  the  dataset  specified 
by  i  ts  i  ndex . 

Returns  the  index  for  the  dataset  specified  by  the  pointer  to  its 
DSP  word. 

Sets  the  specified  lock  number  of  the  dataset  specified  by  its 
i  ndex . 

Returns  the  link  word  and  index  for  a  dataset  (in  forward  order) 
on  a  list,  given  initially  the  pointer  to  the  list  header  and 
subsequently  the  previously-returned  link  word. 

Returns  the  link  word  and  index  for  a  dataset  (in  backward  order) 
on  a  list,  given  initially  the  pointer  to  the  list  header  and 
subsequently  the  previously-returned  link  word. 

Performs  the  same  as  Subroutine  PREV,  except  that  lock  values  are 
not  set  and  reset. 

Places  the  dataset  specified  by  its  index  as  the  bottom  dataset 
on  a  list  specified  by  its  list-header  pointer. 

Inserts  a  dataset  (specified  by  its  index)  into  a  list  of  data¬ 
sets  (specified  by  its  list-header  pointer)  according  to  the 
ascending  order  of  the  specified  nth  words  (with  real  values)  of 
the  datasets. 

Places  the  dataset  specified  by  its  index  as  the  top  dataset  on  a 
list  specified  by  its  list-header  pointer. 

Initializes  the  routines  in  the  DSA  System. 

Removes  all  the  datasets  from  the  list  specified  by  its  list- 
header  pointer  and,  if  the  parameter  kdstry=l,  also  destroys  the 
datasets . 
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7-2.4 


Routines,  Conricn  'jiocks,  and  Conmon-Bl ock  Variables 


7-2.4. 1  Routines  and  Conitrion  Blocks 

In  Table  7-4  we  provide  a  matrix  which  shows  the  appearance  of  common 
blocks  in  the  routines  in  the  NBR  Module. 

7-2. 4. 2  Definitions  of  Common-Block  Variables 

In  this  section  we  either  define  the  variables  in  a  common  block  or 
give  a  reference  where  the  definitions  can  be  found.  We  also  comment  on  the 
use  of  the  conition  block  and/or  of  its  variables. 

Blank  COMMON 

Blank  CCfMON  is  used  only  for  the  DSA  System.  For  definitions  of 
variables,  see  SR-78. 

Common  /AEROK/  kVIS,  KPTYPE 

The  variables  KVIS  and  KPTYPE  are  read  in  Program  ORVOP',-;  and  trans¬ 
ferred  through  /AEROK/  to  Subroutine  AEROSOL. 

5 

KVIS  -  Visibility  range  parameter  (VR)  for  0  P.CM  1  9  x  10  cm 

=1,  VR  =  50  kn 

=2,  VR  =  23  km 

=3,  VR  -  10  km 

=4,  VR  =  5  km 

=5,  VR  =  2  km 

5 

KPTYPE  -  Terrain  parameter  for  0  <  HCM  2  x  10  cm 

=1,  Terrain  is  rural 
=2,  Terrain  is  urban 
=3,  Terrain  is  maritime 

Common  /AIRSQL/  TASP(lO),  TASC(IO),  TAFP(lO) 

The  arrays  TASP  and  TASC  are  set  in  Subroutine  SURRAD  and  transferred 

through  /AIRSOL/  to  Subroutine  UPWELL.  (The  array  TAFP  was  never  intended  for 


Table  7  -4.  Matrix  of  routines  and  common  blocks 


i 


use  with  the  NBR  Module  but  was  provided  should  Subroutine  SURRAD  be  used  as  a 
utility  routine;  this  use  has  not  evolved  in  ROSCOE-IR.) 

For  LUP=1.NWAVE{JBAND) 

TASP(LUP),  -  Aerosol  transmittance  for  incoming  solar  rays  to  Points  P 
TASC(LUP)  on  Earth's  surface  and  Point  C  at  12 -km  altitude  on  the 

VP-path.  (Dimensionless;  depends  only  on  wavelength  and 
assumed  single  paths.) 

For  L=1,IFIRES  (not  in  NBR  Module) 

TAFPIL)  -  Aerosol  transmittance  for  incoming  ray  from  Fireball-L 
to  Point  P  on  Earth's  surface.  (Not  used  in  ROSCOE-IR.) 


Common  /ALTODN/ 

Variables  in  /ALTODN/,  defined  in  Subroutines  ATMOSLl  and  SPCMIN  in 
Vol.  14a-l,  are  of  no  direct  interest  for  the  NBR  Module  per  se. 


Common  /ATMOUP/  HL,  SBAR,  lOORN,  PP,  RHO,  H,  SN1(30),  HRHO,  FEHSEQ 

HL  -  Local  apparent  time  (set  by  Subroutine  SOLZEN). 
(decimal  hours) 


SBAR 

I  DORN 

PP 

RHO 

TT 

SNl(I) 

HRHO 

FEHSEQ 


Average  10.2-cm  solar  flux  (set  by  Subroutine  SOLCYC). 
[l.OE-aZ/Im*^  Hz)] 

Oiurnal  parameter  (set  by  Subroutine  SOLZEN). 

=1,  for  daytime 
=-l,  for  nighttime 

2 

Pressure  (set  by  Subroutine  ATMOSU).  (dyne/cm  ) 

Mass  density  (set  by  Subroutine  ATMOSU).  (g/cin'^) 

Temperature  (set  by  Subroutine  ATMOSU).  (deg  K) 

Species-I  density.  (1/cm^).  The  full  array  is  defined 
in  Subroutine  ATMOSU.  See  Table  7-9  for  those  species 
used  in  computing  the  molecular  transmittance. 

Density  scale  height  (set  by  Subroutine  ATMOSU).  (km) 

Fractional  error  in  hydrostatic  equilibrium  (set  by 
Subroutine  ATMOSU), 


Common  /CDDATA/ 


The  variables  in  /CDDATA/  are  defined  ot.  p.  74  of  Volume  24. 
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Cwnmon  /CLDFREQ/ 

The  variables  in  /CLDFREQ/  are  defined  on  pp.  74,  75  of  Volu^ne  24. 
Conmon  /CLDWT/ 

The  variables  in  /CLDWT/  are  defined  on  p.  76  of  Volume  24. 


Common  /CLOUD/ 

The  variables  in  /CLOUD/  are  defined  on  pp.  76,  77  of  Volume  24. 
However,  they  are  used  only  in  the  deterministic  cloud  submodel  and  hence  are 
not  used  in  the  NBR  Module. 


Common  /CONFIG/ 

The  variables  in  /CONFIG/  are  defined  on  p.  77  of  volume  24. 

Conmon  /DIFFUS/ 

The  variables  in  /OIFFUS/  are  defined  on  p.  78  of  Volume  24;  however, 
they  are  not  used  in  the  NBR  Module. 

Common  /FIR3AL/  FBLAT(IO),  FBLON(IO),  FBALT(IO),  F3RINT(10) 

/FIRBAL/  appears  in  two  routines  (RINO'JT  and  SURRAO)  even  though  the 
NBF  Module  does  not  use  any  of  its  variables.  The  reason  for  the  appearance 
of  /FIRBAL/  is  that  Subroutine  SURRAO  was  created  with  a  dual  purpose  in  mind: 

(1)  As  an  integral  part  of  the  NBR  Module,  to  be  called  from  Sub¬ 
routine  UPvioLL  .vith  only  the  sun  as  a  source. 

(2)  As  a  utility  routine,  to  be  called  by  routiner  (other  than 
UPWELL)  needing  the  surface  radiance  (thermally  emitted  and 
source  (sun  or  fireball)  reflected).  For  such  use,  /FIRBAL/  was 
’ ncl uoed . 

However,  Subroutine  SURRAO  is  not  used  as  a  utility  routine  in  ROSCOE-IR. 

FBALT(L),  -  Altitude,  north  latitude,  and  east  longitude  of 
FBLAT(L),  Fireball-L.  (km,  radians,  radians) 

FBLON(L) 

FBRINT(L)  -  Radiant  intensity  of  Fireball-L.  (W/sec) 
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CoiTinon  /FL^GS/  lTFL^3 

In  order  that  Subroutine  Ti^AMS'^  in  the  Natural  Cloud  Module,  called 
by  Subroutine  ClD^JT,  will  know  whether  or  not  the  sun  is  above  or  below  the 
horizon,  we  require  Subroutine  :JP,iELL  to  set  iTFLAG  in  /FL&uS'  before  cal  lino 
Subroutine  CLOwT . 

ITFLAC,  -  F^ag  indicating  the  diurnal  condition  at  Point  V‘. 

=0,  Sun  is  below  the  horizon 
=1,  Sun  is  above  the  horizon 

Conmon  /ICflO'JP/ 

The  variables  in  /IThOJP/  are  defined  on  op.  133,  134  of  Volume 
14a- 1;  however,  they  are  not  used  in  the  h3R  Module. 

Common  /3PTI0H/  T^NSOPT 

See  TRN53PT  in  Table  7-8  for  Subroutine  T3AMS3,  FAST  in  '''able  6-10 
for  Subroutine  TSANS,  and  T^MSOPT  in  Table  o-2  for  Subroutine  JPwELL. 


Common  /IPTINI/  RAOS.t 

See  RADS>I  in  Table  6-2  for  Subroutine  'JP/tELL  and  Table  6-3  for  Sub¬ 
routine  TRSSCO. 


Common  /PARAMS/ 

/P ARAMS/  contains  constants  used  in  the  Natural  Cloud  Module.  Th.ey 
are  defined  on  p,  80  of  Volume  24  and  are  set  in  Program  ORVJPW. 


C.ammon  /t-JSITN/'  ^OSLAT,  PJSLON,  PTSALT,  SPCLAT ,  SPCLON,  CiJ'^uT.  C12L0N.  C12iuT 

PQSAL''' ,  -  Altitude,  north  latitude,  and  east  longitude  of  Point  p 

POSLAT,  at  which  1  i  ne-of- sight  (  froii  fictitious  detector  at 

POSLON  Point  V)  intersects  Earth’s  surface.  Set  in  Subroutine 

JPRELL.  (km,  rad’ans,  radiansl 


SPCLAT,  -  Uorth  latitude  ano  east  longitude  of  the  point  on  an 
SPCLOII  assumed  smooth  horizontal  surface  for  a  specular  ret  ec- 

tion  from  the  source  to  the  detector  at  Point  V.  (Set 
in  Subroutine  GLITTR  if  S‘’CilLR  =  .TRUE  . . )  (radiansl 


C12ALT, 

C12LAT, 

C12L0S 


Altitude,  north  latitude,  and  east  longitude  of  Point  C 
at  which  line-of-sight  (directed  toward  Point  °  from 
fictitious  detector  at  Paint  V 1 ,  intersects  the  12-km 
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altitufle  suT'fdc*?.  >et  ’i  :;jbfOutine  (Km, 

:  ai1 3'’S .  racti ansi 

Coninon  SC(*C 

See  in  either  Table  6-?.  for  Njbrojfine  or  Table  o-n  far 

Subroutine  T^ISSCO  . 

Common  SA'lOD  '  XS,  Yi ,  ZS ,  <3.  YD,  ZD,  UL  ,  VL ,  «L 

3y  Gills  to  Subroutine  GgIYvj^  Subroutine  jI'sElL  sets  -  for  use  m 
Subroutine  S'.VIM  after  transfer  fras  S-jnrtion  TifS'iSE  in  the  'iatural  Cloi.h 
■•iodule  -  the  F  arth-centered  Cartesian  coordinates  of  the  sun  ‘xS.  YS,  Zs  ;  and 
of  the  fictitious  detector  (XD,  YD,  ZDl  at  "^oint  V;  the  solar  cocrdinates  are 
zeroed  if  the  sun  is  below  the  horizon.  jPwf.LL  also  sets  the  direction 
cosines  ( JL ,  V'-,  wL  1  of  i’oint  ^  as  viewed  from  Tioint  V. 

XS ,  -  Cartesian  coordinates  of  the  source  location  in  the 

YS.  Earth-centered  system.  The  x-direction  poi 'ts  to  zero 

ZS  degrees  longitude  and  ninety  degrees  co’atituile.  Che  z 

direction  is  through  the  nortn  pole,  (km) 

XO .  -  Cartesian  coordinates  of  the  detector  location  in  tn-? 

YD,  Earth-centered  system.  ( Kml 

Zj 

.  -  Direction  cosines  of  tne  l  ine-of-sight  vector  in  tnc- 

Vc,  Earth-centered  system. 

wL 

Common  saTELt.'  SXTLXT,  SAT,.TS,  SATALT,  SATIEN,  SA'A;: 

SATELC  is  not  used  in  the  ".'1  Module  becaus-'  -  joroutine  ^Dw-L. 

does  not  deal  with  real  sensors.  SA'^ELL-  was  included  in  .-inr-oy^ine  SP.CAD 

on  the  assumption  that  it  would  be  ?.  utility  routine,  use-d  when  a  real  sense 

in  a  satellite  looks  at  the  ground,  iowcver.  >JXg\D  is  not  so  used. 

SATALT,  -  Altitude,  north  latitude,  and  oast  long'tudo-  of 
SATcat.  satel  1  i  te-borne  de*-eLtor.  ;Km.  rani  . ms,  ramans' 

satldn 

SATZES  -  Zenith  angle  of  ray  reflected  at  ^oint  ^  towards  the 
satellite,  (‘lot  computed.)  (radians) 

sATAZ;  -  Absolute  value  of  azimuth  of  reflected  ray,  measurea 
frail  principal  pi  ane  determined  by  vertical  plane 


t'  rough  incom'ng  ray  from  sun.  (Not  con;.ited.l 
(  raui' ansi 


Comor  /SOLARP/  SOl.LAT,  SOLl.OM,  SOLIRRdJl 

The  position  variables,  set  in  Subroutine  ATMOSJ  after  it  calls  Sub¬ 
routine  SGL9RR  during  the  initialization  phase,  are  used  in  Subroutine  uP'nLLL 
SURRAO,  and  RlHOuT.  The  irradiance,  set  in  Subroutine  SuP.RAO  after  it  calls 
Subroutine  SOLRAD,  is  used  in  Subroutines  SdRRAD  and  UPWELL. 

SCLLAT  ,  -  North  latitude  and  east  longitude  of  subsolar  pcint- 

SOlLON  (radians) 

SOLIRRil)  -  Solar  spectral  irradiance  at  t^e  top  of  the  atmosphere 
L  =  1,SWAVEJ  at  wavenumber- i ndex  t.  [n-Mcm''  cm  j 


Cormon  /SoRCE-'  NSORCE ,  KSORCEd),  RSORCtdl,  ThETAS.  PHIS 

The  geometrical  variables  in  /SORCt/'  are  set  by  Subroutine  cP..ELL  in 
terms  of  the  solar  position  (the  only  source  with  which  Subroutine  oPRElL  is 
concerned)  and  are  passed  to  Function  TRANSF  in  the  Natural  Cloud  JTodule. 


NSORCE 


HSORCEd  ) 


RSORCtd) 


THETAS, 

PHIS 


The  number  of  sources.  Set  to  i  in  oata  statement  in 
Subroutine  UPWELL. 

Altitude  of  sun  (RSUf;).  RSUN  is  set  in  data  statement 
in  Subroutine  'JP'wELL .  (km) 

Radius  of  source.  True  value  for  sun  is  not  relev ar.r 
for  applications  in  NBR  Module.  Set  to  0.0  in  data 
statement  in  Subroutine  L-PWELL. 

Colatitude  and  east  longitude  of  subsolar  point. 

( degrees) 


common  /SOUR'.E/  SRCLAT,  SRCLON,  SRCALT ,  SRCPLG,  SRCZENdl),  SSCSRdl) 

The  geometrical  variables  in  /SOURCE/  are  set  by  Subroutine  RINCJT. 
Currently  (April  1980)  only  the  sun  is  used  as  a  source  for  Subroutine  SSRRAC. 
(Fireballs  are  never  used  in  the  call  to  Subroutine  SURRAD  from  Subroutine 
UPWELL  in  the  flBR  Ntodule.l 

SRCALT  -  Altitude  of  source  i/  not  the  sun.  (km) 


SRCLAT,  -  North  latitude  and  cast  longitude  of  source  (sun  or  f 
SRCLON  ball),  (radians) 


ire- 
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SRCFl.G  -  Flag  characterizing  source 
=1,  Source  is  sun 
=2,  Source  is  fireball 

SRCZEN(l)  -  Zenith  angle  of  ray  incoming  to  Point  P  from  the  sun. 

( radians) 

For  L-1,IFIR£S  (Not  used  in  NBR  Module) 

SRCZEN(L+1)  -  Zenith  angle  of  ray  incoming  to  Point  P  from  Fireball-L. 
( radians) 

SRCSR(l)  -  Not  defined. 

SRCSR(L+1)  -  Slant  range  from  Fireball-L  to  Point  P.  (km) 


Comion  /TECTOR/  DETLAT,  DETLON.  DETALT,  DETZEN,  DETAZI(ll) 

Subroutine  UPWELL  uses  /TECTOR/  to  position  a  fictitl'i',  detector  at 
Point  V  and  pass  the  information  to  Subroutines  SURRAD,  RINOUT,  and  GLITTR. 
The  scattering  angles  are  set  in  Subroutine  RINOUT  and  used  in  Subroutine 
SURRAD. 


DETALT,  -  Altitude,  north  latitude,  and  east  longitude  of 
DETLAT,  fictitious  detector  at  Point  V,  (km,  radians,  radians) 
DETLON 


DETZEN  -  Zenith  angle  of  ray  reflected  at  Point  P  on  Earth's 
surface  toward  the  detector  at  Point  V.  (radians) 

DETAZI(l)  -  Absolute  value  of  azimuth  angle  of  reflected  ray, 

measured  from  principal  plane  determined  by  vertical 
plane  through  incoming  solar  ray.  (radians) 

For  L=], IFIRE  (Not  used  in  NBR  Module) 

DETAZI(L+1)  -  Absolute  value  of  azimuth  angle  of  reflected  ray, 

measured  from  principal  plane  detemined  by  vertical 
plane  through  incoming  ray  from  fireball,  (radians) 


Coranon  /TIME/  lYRS,  IMONS,  IDAYS,  ZT,  PLAT,  PLON,  UT,  GAT,  FYR,  FST,  RH05KM, 
CHI 

The  variables  lYRS,  IMONS,  lOAYv,  and  ZT  are  read  by  Program  DRVUPW. 

GCO  and  GLO  are  also  read,  in  terms  of  which  PLAT  and  PLON  are  set.  UT  is  set 

by  Subroutine  ZTTOUT,  GAT  by  Subroutine  SOLORB,  FYR  and  FST  by  Subroutine 

JULIAN,  RH05KM  by  Subroutine  ATMOSU,  and  CHI  by  Subroutine  SOLZEN. 

lYRS  -  Number  of  the  year  in  the  1900 's  at  east  longitude  GLO 
(p.g.,  1980  becomes  80). 
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IMONS  -  Number  of  the  month  at  east  longitude  GLO  (e.g., 

February  becomes  2). 

lOAYS  -  Day  of  the  month  at  east  longitude  GLO. 

ZT  -  Zone  time  for  the  iS-degree  longitude  interval  contain¬ 
ing  east  longitude  GLO.  (decimal  hours) 

GCO,  -  Geoarapnic  colatitude  and  east  longitude  of  grid  origin 
GLO  or  whatever  reference  point  is  desired,  (degrees) 

PLAT,  -  North  latitude  and  east  longitude  of  grid  origin. 

PLON  (radians) 

UT  -  Universal  time  corresonding  to  zone  time  ZT.  (decimal 
hours) 

GAT  -  Greenwich  apparent  time,  (decimal  hours) 

FYR  -  Fractional  season-year,  being  zero  on  1  January  in  the 
northern  hemisphere  and  zero  on  1  July  in  the  southern 
hemi sphere . 

FST  -  Fractional  summer,  being  one  on  1  July  and  zero  on  1 

January  in  the  northern  hemisphere  and  reversed  in  the 
southern  hemisphere. 

3 

RH05KM  -  Mass  density  of  dry  air  at  5-km  altitude,  (g/cm  ) 

CHI  -  Zenith  angle  of  the  sun  at  grid  origin,  (radians) 

Comion  /UPWFLS/  UPWALT,  UPWLON,  UPWLAT.  NALT(5),  ZKM(13,5),  NNADIR,  NAZI, 
NWAVE(5),  IDAY\',  CLDFLG,  UPRADN  ( 13 , 10, 6 ) ,  WV(1U,5),  RM, 

N3ANDS 

Program  DRVUPW  sets  the  variables  UPWALT,  UPWLON,  UPWLAT,  and  NBANDS 
and  the  array  NWAVE(M)  (MrJBAND^l, NBANDS)  and  reads  the  variables  NNADIR, 

NAZI,  and  CLDFLG.  Program  DRVUPW' s  call  to  Subroutine  SLTALT  sets  the  arrays 
NALTIM)  and  ZKM(1,M)  (M=l, NBANDS;  I=1,NALT( M)) .  The  call  to  Subroutine  UPWELL 
sets  lOAYV,  UPRAONd  ,L,M)  (for  1  =  1 ,  NALT  (M) ;  L=1  ,NWAVE  ( Ml ;  M=l, NBANDS),  and  IKM 


The  array  WV(L,M)  (L=1,NWAV£(M) ;  M=l, NBANDS)  is  not  used  in  the  stana 
alone  version  of  the  NBR  tTodule  but  is  set  in  Program  (  OOK  in  ROSCOE-IR  to 
record  the  group  of  central  wavenumbers  of  the  band-intervals  used  in  calling 
Subroutine  UPWELL  for  each  broad-band  M. 
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UPWALT  -  Surface  altitude  of  the  sub-V-point.  (km) 

UPWALT,  -  North  latitude  and  east  longitude  of  Point  V  at  which 

UPWLON  upwelling  radiance  is  computed,  (radians) 

For  I=1,NALT(M);  L=1 ,NWAVE(M) ;  M=1,NBANDS 

NALT(M)  -  Number  of  altitudes  ZKM(1,M)  for  (broad)  wavelength-band 
index  M.  Defines  NALTJ. 

ZKM(I,M)  -  Altitudes  of  Point  V  above  UPWALT  at  which  upwelling 
radiance  is  computed,  (km) 

NNADIR,  -  Number  of  nadir  and  azimuth  angles  at  Point  V  at  which 
NAZI  upwelling  radiance  is  computed. 

NWAVE(M)  -  Number  of  wavenumbers  at  which  the  upwelling  spectral 
radiance  is  to  be  computed  for  (broad)  wavelength-band 
index  M.  Defines  NWAVEJ. 

IDAYV  -  Index  for  diurnal  condition  at  sub-V-point. 

=0,  Solar  zenith  angle  >  90  degrees 
=1,  Solar  zenith  angle  £  9U  degrees 

CLOFLG  -  Index  for  inclusion  of  natural  clouds. 

=0.,  Natural  clouds  are  not  included 
=1.,  Natural  clouds  are  included 

UPRADNd  ,L.M)  -  The,  nadir-averaged  value  of  UPRADA(  I ,  J  ,L  ) .  LW/(cm^ 

cm"-^ )  ] 

WV(L,M)  -  The  array  of  central  wavenumbers  corresponding  to 

(broad)  wavelength-band  index  M.  (Not  used  in  stand¬ 
alone  version  of  the  NBR  Module.  Setjin  Program  OLOOK 
and  used  in  Subroutine  UPWELT.)  ( cm”  ) 

IKM  -  Index  for  number  of  altitudes  at  which  calculations  are 
made  when  clouds  are  included.  Used  in  Subroutines 
SURRAD  and  UPWELL. 

N13ANDS  -  Number  of  (broad)  wavelength  binds. 


Common  /  UPWELSl/  RU10(o,10),  R01UA( 6 , W , lU ) ,  ROlON(b,10), 

R025(6,10),  R025A(6,10.1U).  R025N(6,10), 

RU50(6,1U),  Ra50A(6,lU,lU),  R050N(6,1U), 

R090(6,10),  R090A(fa,10,10),  R090N(6,1U), 

R100(6,1U),  R100A(b,lU,lD),  R10UN(b,lO) 

Each  of  the  arrays  in  /UPWELSl/  is  computed  in  Subroutine  UPWELL. 
For  XXXd0,25,6U,9U,10U;  IKM  1  1; 
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J=1,NNADIR;  K=1,NAZI;  L=1.MMAVE(M) 

RXXX(K,L)  -  XXX-percentil e  of  the  integral  distribution  of  the  total 
(including  that  from  statistical  clouds)  natural  up- 
welling  spectral  radiance  received  at  Point  V  for  wave- 
number-L  (at  implicit  altitude-lKM  above  surface  mate¬ 
rial  MSM)  along  a  ray  directed  to  Point  P  on  Earth's 
surface  (at  implicit  nadir-J  and  explicit  azimuth-K). 
LW/(cm‘^  sr 

Mote:  RXXX(K,L)  does  not  include  ARCVA{IKM,J  ,L) , 
Currently,  UPRAD(K,L)  and  RXXX(K,L)  are  being  written  in 
binary  form  on  Logical  Unit  No.  8,  for  all  appropriate 
altitudes  and  nadirs. 

RXXXA(IKM,J,L)  -  The, azimuth- averaged  value  of  RXXX(K,L).  [W/(cm^  sr 

cm'Ml 

RXXXNdKM.L)  -  The, nadir-averaged  value  of  RXXXA(IKM,J,L) .  [W/(cm^  sr 
cm  ^)] 

ARCVA(IKM,J,L)  -  When  clouds  are  considered,  a  component  of  the  upwelling 
spectral  radiance  received  at  Point  V  (at  al titude-lKM) , 
from  air  emission  above  l2-km  altitude,  along  a  ray 
directed  to  Point  P  on  the  Earth's  suRface  (at  nadir-J 
and  independent  of  azimuth-K).  [W/{cm^  sr  cm"^)] 

ARCVNdKM.L)  -  The, nadir-averaged  value  of  ARCVA(IKM,J,L).  [W/cm^  sr 
cm"  )] 


Coninon  /UPWELS2/  JBAMOl 

The  variable  OBANDl  is  set  to  the  (broad)  wavelength- band  index  JBANO 
in  Subroutine  UPWELL  and  passed  through  /UPWELS2/  To  Subroutine  SURRAD  to 
facilitate  some  print. 


Common  /UPWELS3/  UPRAD(6,10),  UPRADA( 13,10,10) 

Both  of  the  arrays  in  /UPWELS3/  are  computed  in  Subroutine  UPWELL. 
(As  the  code  has  developed,  there  remains  little  reason  for  including  the 
array  UPRAD  in  /UPWELS3/. 

For  1  =  1, MALT  (M);  J  =  1.NNADIR;  K=l,NAZr.  L=1,NWAVE(M) 

UPRA0(K,L)  -  Natural  upwelling  spectral  radiance  received  at  Point  V 
(at  altitude-I  above  surface  material  MSM)  along  a  ray 
directed  to  Point  P  on  Earth's  surface  (at  nadir-J  and 
azimuth-K).  I-  and  J -dependence  is  not  stored,  so  user 
must  print  UPRA0(K,L)  imnediately  after  computation  if 
he  wants  to  see  them.  Currently,  UPRA0(K,L)  and 
RXXX(K,L)  are  being  written  in  binary  form  on  Logical 
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Unit  Nq.  8,  for  all  appropriate  altitudes  and  nadirs. 
[W/(an'^  sr  cm’^)] 

UPRADAd ,J,L)  -  The, azimuth-averaged  value  of  UPRA0(K,L).  [W/(cm^  sr 

cm"d] 


Comnon  /VPC/  WYFLAG,  METHOD 

Currently,  in  Program  DRVUPW,  we  set  WVFLAG=0.0  and  METHOD=0. 

WVFLAG  -  Flag  for  optional  treatment  of  water  vapor. 

=  0.0,  Normal  treatment 
i  0.0,  Optional  treatment 

METHOD  -  Flag  indicating  one  of  four  options  for  treatment  of 
water  vapor. 

=1,  Data  values  in  parts  per  million  by  ma|s.  (ppmm) 
=2,  Data  values  in  absolute  himidity.  (g/m^l 
=3,  Data  values  in  relative  humidity,  (percent;  10  p;r 
cent  is  input  as  10.0,  not  0.10) 

=4,  Data  values  in  dew-point  temperature,  (deg  K) 


Comnon  /XY/  TT(IO) 

TTd)  -  Temperature  array  in  atmospheric  transmission  model. 

Set  as  data  in  Program  DRVUPW  and  used  in  Subroutines 
SEGMENT  and  TRANS. 

Conmon  /XYZCOM/  ITMTE,  LTMTE,  NS,  HSHEU(81),  TS(81),  PS(81),  XNSPEC(81 .10) , 
U(10,10,Z),  UP(10,10,2),  NMOLS,  FACT 
The  variables  ITMTE,  LTMTE,  and  NMOLS  are  set,  and  the  variable  FACT 
is  read,  by  Program  DRVUPW.  Subroutine  SHELLS  sets  the  variable  NS  and  the 
arrays  HSHELL(81),  TS(811,  PS(81),  and  XN5PEC(81 ,10 ) .  Cumulative  values  of 
the  path- parameter  arrays  U(10,10,2)  and  UP (10, 10, 21  are  set  by  Subroutine 
PATH  and  used  by  Subroutine  TRANS  to  compute  the  molecular  transmittance. 

ITMTE,  -  Auxiliary  input  and  output  data  file  numbers  for 
LTMTE  Subroutine  TRANSB.  Set  to  2  and  3,  respectively,  in 
Program  DRVUPW.  See  TAPIN  and  TAPOT  in  Table  7-8  for 
Subroutine  TRANSB  for  more  information. 

NS  -  Number  of  boundary  altitudes  used  in  Subroutine  SHELLS. 

For  J=1,NS 

HSHELL(J),  -  Altitude,  temperature,  pressure,  and  species-N  density 
TS(J),  at  altitude-boundary^U. 

PS(J),  (cm,  deg  K,  atm,  cm*'^) 

XNSPEC(J) 


For  1=1,2  (adequate  for  ambient  atmosphere);  M=l,10 
U(I,N,2)  -  Cumulative  value  of  path  parameters  U  (species-S  areal 

'JP{1,N,2)  density)  and  UP  (product  of  U  and  pressure  P)  for 

temperature-index  I  and  species-N.  See  Table  5-6  for 
Subroutine  PATH  and  Table  6-10  for  Subroutine  TRANS, 
(cm  at  STP,  atm-cm  at  STP) 


NMOLS  -  Number  of  species.  Set  in  Program  DRVUPW  and  used  in 
Subroutines  ATMRAO  and  TRAMS  (where  known  as  NSPEC). 


FACT  -  Parameter  controlling  the  number  of  altitude  boundaries 
and  their  spacing.  See  Table  7-9  for  Subroutine  SHELLS 
for  more  information. 


Common  /ZHCHEX/  ZHFLAG,  SPIFLG 

The  variables  in  /ZHCHEX/  are  defined  and  their  use  (to  insure  Sub¬ 
routine  ATMOSU  is  called  prior  to  Subroutines  lONOSU  and  SPCMIN)  is  described 
in  the  listings  of  Subroutines  ATMOSU,  lONOSU,  and  SPCMIN  in  Volume  14a- 1. 
/ZHCHEX/  does  not  affect  the  N3R  Module  per  se. 

Common  /ZHTEMP/  NZHT,  ZHT(31),  TZH(31),  TPFLAG 

For  steps  required  by  the  user  to  bypass  the  code's  specification  of 
the  temperature  profile  in  the  low-altitude  (0-  to  120-lcm)  region,  see  p.  38 
in  Volume  14a-l.  (The  arrays  ZHTZ(3)  and  TZHZ(3)  appearing  as  arrays  in 
/ZHTEMP/  in  Volume  14a-l  are  development  artifacts  and  should  be  deleted.) 
Currently,  in  Program  DRVUPW,  we  set  TPFLA6=0.0. 

NZHT  -  Number  of  altitudes  (31)  at  which  the  low-altitude  tem¬ 
perature  profile  is  defined. 


For  1  =  1, NZHT 

ZHTdi  -  Altitudes  at  which  the  temperature  profile  is  defined. 
=0.0(4.0)120.0  km 

TZH(1  )  -  Temperature  profile  (for  TPFLAG=0.0),  determined  by 

interpolation  of  the  data  base  [US-66]  for  latitude  and 
season,  used  as  input  to  the  major  atmospheric  species 
model  for  the  low- altitude  range  from  0-  to  120 -km  alti¬ 
tude.  (deg  K ) 

-  Temperature  profile  (for  TPFLAG  i  0.0),  specified  by 
user  at  altitudes  z  =  0(4)120  km.  (deg  X) 

TPFLAG  -  Flag  for  optional  treatment  of  temperature  profile. 

=  0.0,  Normal  treatment 
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i  0.0,  Optional  treatment,  allowing  Subroutine  to 

read  the  user-specified  profile  at  altitudes  z  = 
0(4)120  km 

7-3  DRIVER  PROGRAM  ORVUPW  AND  INITIALIZING  ROUTINES 

7-3.1  Cal cul ational  Steps  in  Program  DRVUPW 

Here  we  describe  the  calculational  steps  required  in  the  driver  for 
the  NBR  Module,  Program  DRVUPW. 

A.  Initialization 

1.  OSA  System 

a.  Set  parameters 

b.  Call  QINITL 

2.  Ambient  atmosphere 

a.  Read  time  and  place 

b.  Set  option  parameters  for  water  vapor  and  temperature 
profiles 

c .  Call  ATMOSU 

3.  Natural  clouds 

a.  Read/set  parameters 

b.  Call  CLOUOO 

4.  Create  Oatasets-BN  and  -31 

a.  Read  spectral  data 

b.  Call  CREATE,  PUT30I  ,  or  PUTTOP 

5.  Compute  band-model  parameters 

a.  Set  option 

b.  Call  TRANSB 
b.  Atmospheric  shells 

a.  Read/set  option 

b.  Call  SHELLS 

7.  Prepare  to  call  UPWELL 

a.  Read/set  aerosol  parameters 
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b.  Read/set  atmospheric  emission  option  and  transmittance 
parameter 

c.  Read/ set  geometry  parameters  for  UPWELL 

d.  Read/ set  surface  material  parameters 
B.  Operation 

1.  Initiate  (broad)  wavelength- band  spectral  loop 

2.  Get  Datasets 

a.  Call  PREV  for  Dataset-BN 

b.  Call  PREV  for  Dataset-81 

3.  Set  altitudes  for  UPWELL 

a.  Set  (broad)  wavelength-band  limits 

b.  Call  SET  ALT 

4.  Call  UPWELL 

5.  Write  results 

7-3.2  Subroutine  SETALT 

The  purpose  of  Subroutine  SETALT  is  to  provide  a  set  of  altitudes  at 
which  Subroutine  UPWELL,  for  a  given  spectral  range,  will  compute  the  up- 
welling  natural  radiation.  To  minimize  the  number  of  such  altitudes,  we  have 
accounted  for  the  spectral  dependence  of  the  air  transmittance,  as  now  de¬ 
scribed. 


Our  approach  in  selecting  altitudes  was  to  ccmipute  the  upwelling 
radiance  for  a  strictly  nadir-looking  sensor  as  a  function  of  altitude  and 
wavelength  in  the  2-  to  5-wm  band.  The  wavelengths  used  are  the  27  test 
values  given  in  Table  7-5.  The  resolution  was  10  cm*^.  The  altitudes  used 
are  0 (0. 1) 1( i )10(2 )20(5 )30( 10) 100  km.  We  used  an  atmosphere  (see  Volume 
14a-l)  ir  a  zone  time  of  0.0  hours  on  19  September  1978  at  a  geographic  loca¬ 
tion  of  45-deg  north  latitude,  0-deg  longitude.  The  version  of  the  code  avail¬ 
able  at  the  time  required  the  surface  temperature  to  be  independently  speci¬ 
fied.  It  was  set  at  288  deg  K  (instead  of  the  air  temperature  at  the  first 
shell  boundary  which  was  28e.6-degK).  The  surface  emissivity  was  0.9.  The 
zoning  of  the  atmosphere  into  shells  was  determined  by  FACT=1,  but  the  algo¬ 
rithm  used  was  not  the  one  currently  set  by  GRC  (see  Table  7-9  for  Subroutine 


208 


SHELLS)  but  the  one  originally  specified  by  G.E.  Tempo,  according  to  which  the 
76  shell  thicknesses  were  0.5263  km  between  0  and  20  km  and  2.105  km  from  20 
to  100  km. 

Table  7-5.  Wavelengths  used  in  developing  Subroutine  SETALT. 


Wavelength, 


Bin 

No.  Bin  Edge  _ Test  Values _  Bin  Edge 


1 

2.0 

2.0 

2.1 

2 

2.1 

2.40, 

2.50, 

2.55 

2.575 

3 

2.575 

2.60, 

2.65 

2.675 

4 

2.675 

2.70 

2.725 

5 

2.725 

2.75, 

2.80, 

2.85 

2.825 

6 

2.875 

2.90, 

2.95, 

3.00. 

3.20,  3.50,  4.00,  4,10  4.15 

7 

4.15 

4.20, 

4.25, 

4.30. 

4.40,  4.50  4.55 

8 

4.55 

4.60, 

4.70 

4.75 

9 

4.75 

4,80 

4.85 

10 

4.85 

4.90, 

5.00 

5.0 

The  results  for  these  upward-vertical  radiance  calculations  are  shown 
in  Figures  7-2a,  7-2b,  and  7-2c  for  the  27  wavelengths.  (The  peaks  at  50-km 
altitude  for  the  strongly  attenuated  wavelengths  simply  reflect  a  peak  in  the 
atmospheric  temperature  profile  at  that  altitude.)  Examination  of  these 
curves  led  us  to  set  the  bin  altitudes  given  in  Table  7-6.  More  detailed  work 
may  Indicate  a  need  for  revising  the  bin  edges  and/or  altitudes.  Subroutine 
SETALT  is  designed  so  that  if  the  wavelength  band  of  interest  spans  more  than 
one  bin,  a  set  of  altitudes  is  provided  by  combining  those  for  each  of  the 
spanned  bins.  Table  7-7  gives  the  input  and  output  variables  for  Subroutine 
SETALT. 

The  results  in  Figures  7-2a,  7-2b,  and  7-2c  are  replotted  in  Figure 
7-3  to  show  tht  spectral  dependence  of  the  upwelling  radiance  for  a  nadir¬ 
looking  sensor,  for  altitudes  of  0,  5,  and  50  km.  The  curve  for  0-km  altitude 
is,  of  course,  just  that  given  by  the  Planck  function  for  T=288  deg  K  and  an 
emissivity  of  0.9. 
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;jm)  for  nadir-looking  sensor 


Figure  7- 2b.  Altitude 


Table  7-6.  Bin  altitudes  selected  for  Subroutine  SETALT. 


Bin 

No. 

Altitudes,  km 

1 

0,  1,  12,  20,  100 

2 

0,  1,  12,  100 

3 

0,  1.  3,  12.  100 

4 

0,  1.  2.  4,  9,  12.  20.  30,  50.  70,  100 

5 

0,  1,  3.  12.  100 

6 

0,  1,  12,  100 

7 

G,  1,  3,  6,  12,  20,  50.  70.  100 

8 

0,  1.  12.  100 

9 

0.  1,  12.  30.  100 

10 

0.  1,  12,  100 

Table  7-7 

.  Input  and  output  variables  for  Subroutine  SETALT, 

INPUT  VARIABLES 

Argunent  List 

ALMIN,  - 

Minimum  and  maximisn  wavelengths  for  v^ich  upwelling  natural 

ALfiAX 

radiance  is  to  be  computed,  for  (broadl  wavelength-band 
index  JBAND.  (  urn) 

jeA«)  - 

Index  for  list  of  (broad)  wavelength  bands.  (1  to  5) 

Data  Statements 

NBINLl  - 

Number  of  wavelength  bins  (or  number  of  wavelength- bin 
boundaries  minus  one). 

For  L=1,NBINL1+1 

BINLAMIL)  - 

Wavelength  of  bin-boundary  L.  (  wn) 

For  I  =  1,NALTL(N),  1-1  =  1, NBINLl 

NALTL(M)  - 

Number  of  altitudes  for  wavelength-bin  M. 

HUPWELd.M)  - 

Altitude-I  for  wavelength-bin  M.  (km) 

( continued) 
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Table  '’-7.  Input  and  output  variables  for  Subroutine  SET ALT  (Cont'd', . 


OUTPJT  variables 
UPWELS  Common 

For  OBAKD  1=1,W\LT(J1 

NALT(j)  -  Number  of  altitudes  for  (broad)  wavelengtn-band  index  JBANij 

ZKM(1,J)  -  Altitudes  of  Point  V  above  reference  altitude  (UPiiALT)  at 
which  upwelling  natural  radiance  is  computed  for  (broad) 
wavelength-band  index  JBAHO.  (km) 


7-3.3  Other  Initialization  Routines 
7-3. 3.1  DSA  System 

Comments  in  our  listing  of  Program  ORVJPa  define  the  six  words  and/or 
arrays  that  are  initialized  there  before  calling  QINITL.  We  also  state  how  to 
estimate  minimum  storage  requirements  for  high  speed  memory  in  terms  of  the 
number  and  sizes  of  datasets.  For  more  information  on  the  GRC  DSA  System,  see 
oP-/B.  The  version  of  the  OSA  System  we  have  used  was  prepared  by  L.  Ewing  of 
G.E.  Tempo.  Whereas  it  differs  somewhat  frcr  the  GRC  version, it  is  saia  to  be 
equivalent,  at  least  for  the  current  aoplication. 

7-3. 3. 2  SM  Routines  (AT’TQSD,  CLOJDO) 

Full  docunentati on  is  given  for  Subroutines  ATMob,.  anq  CL'jj'Ju  in 
Volumes  14a-l  and  24,  respectively. 

7-3. 3.3  (j.E.  Tempo  Routines  (TRANS6,  SHELLS) 

The  purpose  of  Subroutine  TRANSE  is  briefly  described  m  Table  7-3a 
and  in  Volume  31  ip.  74).  Our  more  detailed  summary  of  its  input  and  output 
variables  is  given  in  Table  7-8. 


Table  7-8,  Input  and  output  variables  for  Subroutine  TRAMSB. 


IHPUT  VARIABLES 

Argument  Li st 

L3AN0  -  List  Header  Variable  (LHV)  for  Wavelength  Bands  Dataset-BN 
(No.  114).  Strictly,  LBAND  is  the  pointer  (i.e.,  it  con¬ 
tains  the  (Q-array)  address!  for  the  list  header  of  the 
Wavelength  Bands  Oataset-BN.  In  GRC  usage,  LBAND  is  stored 
as  Word-12  of  Oataset-ST  (No.  HI).  In  the  SAI  stand-alone 
version  of  the  NBR  Module,  Dataset-ST  (No,  111)  is  not 
used,  but  LBAND  is  still  generated  in  Program  ORVUPW  and 
used  as  the  LHV  for  Dataset-BN. 


OPTION  Common 

TRNSOPT  -  Logical  variable  affecting  (a)  procedure  for  converting  the 
basic  5-cm  ■*  resolution  band-model  parameters  to  those  for 
the  user-specified  resolution  and  (b)  possible  redundancy 
of  output  data  if  user-selected  bands  overlap  with  common 
spectral  intervals. 

=.TRUE.,  TRANSB  provides: 

(a)  in-band  (more,  precisely,  "in-interval")  averaged  band- 
model  parameters,  (There  is  no  limit  on  the  allowed 
coarseness  of  the  resolution.  If  resolution  finer  than 

5- cm"  is  requested,  the  code  will  compute  answers,  but 
they  may  have  little  or  no  physical  reality.) 

(b)  band-model  parameters  for  each  interval  within  a  band 
(even  though  bands  may  overlap),  and  the  bands  are  ordered 
as  in  the  Wavelength  Bands  Dataset-BN  (No,  114). 

=. FALSE.,  TRANSB  provides: 

(a)  band-model  parameters  at  a  (below-defined)  resolution 
that  may  be  finer  than  the  requested  spectral  intervals. 

In  this  case  the  TRANSB-generated  resolution  (or  sub  inter¬ 
val)  is  0.5  of  the  narrowest  user-specified  wavenumber 
interval,  but  within  the  range  of  5  to  50  cm  ■  The  lower 
edge  of  the  first  output  interval  lies  at  the  lowc*'  edge  of 
the  lowest  wavenumber  spectral  interval. 

(b)  non-redundant  information  for  intervals  in  overlapping 
bands.  (If  bands  don't  overlap,  there  is  nothing  to  elim¬ 
inate,  of  course.) 

Note;  For  additional  information  regarding  use  of  these 
band-model  parameters,  set  coiments  under  FAST  in  Table 

6- 10  for  Subroutine  TRANS. 


( conti nued) 
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Table  7-8.  Input  and  output  variables  for  Subroutine  TRANSB  (Cont'd). 


XYZCOM  Coranon 
ITMTE  - 
LTMTE  - 
"Dataset-BN" 


WLO  BN ,  - 

WHl  BN 

TFLAG  BN  - 


Input  Binary 
TAPIN  - 

WSL,  - 
WSri 


For  1=1,10;  N= 
S0D(I,N1,  - 
0EI(1,N1 


Auxiliary  input  data  file  number  (=2  in  Program  DRVUPW). 
Auxiliary  output  data  file  number  (=3  in  Program  DRVUPW). 


Note;  The  spelling  (BN)  is  an  unfortunate  artifact  from 
the  original  development  of  the  routine  by  L.  Ewing  of  G.E. 
Tempo.  We  are  really  dealing  with  Words-3,  -4,  and  -6  of 
the  GRC  dictionary  Dataset-Bl  (No.  115)  and  not  Dataset-BN 
(No.  114). 

Lowest  and  highest  wavenumbers  of  spectral  interval  j^over 
which  band-model  parimeters  are  to  be  averaged  (cm  ^) 

Flag  to  denote  whether  the  wavelength  or  wavenumber  (cor¬ 
responding  to  the  argument  of  TFLAG  BN)  is  associated  with 
the  first,  intermediate,  or  last  spectral  division  in  a 
band  of  (ascending)  wavelengths  or  (ascending)  wavenumbers. 
=1.0,  First  spectral  division  (lowest  wavelength)  in  a 
wavelength  band  or  last  spectral  division  (highest 
wavenumber)  in  a  wavenumber  band. 

=0.0,  Intermediate  spectral  division. 

=2.0,  Last  spectral  division  (highest  wavelength)  in  a 
wavelength  band  or  first  spectral  division  (lowest 
wavenumber)  in  a  wavenumber  band. 


ile 

Equivjlenced  to  ITKTE.  Contains  band-model  parameters  for 
5-cm  ^  resolution. 

Lower  and  higher  wavenumber  of  5-cm  ^  interval  for  the  sets 
1997.5(5.0)4997.5  cm"^  and  2002.5(5.0)5002.5  cm'\  respec¬ 
tively.  (cm'^) 


a, 10 

Mean  absorption  coefficient  and  inverse  of  mean  line-spacing 
parameter  (or  the  effective  line  density)  for  species-N  at 
temperature- index-1  for,  the  wavenumber  interval  (WSL,  WSH). 
(1/cm  at  STP,  lines/cm*^) 


( continued) 


Table  7-8.  Input  and  output  variables  for  Suboutine  TRANSB  (Cont'd). 


OUTPUT  VARIABLES 


Output  Binary  File 


TAPOT  -  Equivalenced  to  LTMTE.,  Contains  band-model  parameters, 
derived  from  the  5-cm  resolution  data,  for  tne  user- 
specified  interval  OW  either  (a)  communicated  through  the 
Oataset-Bl  if  TRNSQPT=.TRUE .  or  (bi  set  by  an  algorithm  if 
TRNS0PT= .FALSE . .  The  algorithm  is  that  OW  equals  0.5  of 
the  minimum  DW  coiimunicated  through  the  Dataset-BI,  but  not 
less  than  5.0  or  more  than  50  cm 

UL ,  -  Lower  and  higher  wavenumbers  of  interval  DW .  (cm 


S(I,N), 
DE  ( 1 ,11 ) 


Mean  absorption  coefficient  and  inverse  of  mean  line¬ 
spacing  parameter  (or  the  effective  line  density)  for 
species-N  at  temperature- index- I  for  the  wavenumber  in¬ 
terval  OW.  (1/cm  at  STP,  lines/cm 


Note;  In  Volume  31,  L.  Ewing  briefly  comments  (on  p,  74)  on  the  algo- 
rithmjin  Subroutine  TRANSB  for  using  the  band-model  parameters  for  the 
5-cm’^  resolution  (WSL,  WSH)  to  obtain  the  band-model  parameters  for  the 
output  spectral  interval  (WL,  WH),  regardless  of  TRNSOPT  being  TRUE  or 
FALSE.  The  description  is  not  fully  satisfying  since  the  evidence  is  not 
given.  In  any  event,  we  record  here  the  formulas  used  in  TRANSB; 

0E( lines/cm  M  ?  DE(I,N)  as  output  front  Subroutine  TRANSB 
^  DE1(1,N)  as  input  to  Subroutine  TRANS 

=  inverse  of  mean  line- spacing  paramexer  for 

species-H  at  temperature- index- 1 ,  or  the  effec¬ 
tive  line  density  for  the  interval 


S(cm'^  at  STP) 


r 

! 


OW  ;  (WL,  WH)  in  TRANSB 
=  (WTL,  WTH)  in  TRANS. 


S(I,N)  as  output  from  Subroutine  TRANSB 
SOOd.N)  as  input  to  Subroutine  IP.ANS 
mean  absorption  coefficient  for  species-N 
temperature-index-I  for  the  interval 


at 


(continued) 
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Table  7-8.  Input  and  output  variables  for  Subroutine  TRANSB  (Cont'd). 


OW  =  (WL.  WH)  in  TRAMSB 
£  (WTL,  WTH)  in  TRANS. 


where; 


5  SQ0(I,N)  [not  same  as  input  to  TRAMS] 

=  mean  absorption  coefficient  foij'  species-N  at  tem¬ 
perature- index- 1  for  tlie  S-cm  ^  interval  (WSL, 
USH!.  (cm'^  at  STP ) 

5  DEI(I,N)  [not  same  as  input  to  TRANS] 

=  inverse  of  mean  line- spacing  parameter,  or  the 
effective  line  density  for  the  5-cm~^  interval 
(WSL,  WSH).  (lines/cm”M 

H  FRACIWL,  WH,  WSL,  WSH) 


=  fraction  of 


by  the  (5 


of  the  user  interval  OW  =  (WL,  WHl  covered 
-cm"  )  basic  tape  interval  (WSL,  WSH). 


V 

1^1  =  1 


j=l 


It  is  easily  shown  that,  in  the  special  case  of  uniform  line  spacing 
over  J  intervals,  Ewing’s  formulas  give  the  expected  results; 


DE 


1 


4  £  i  ° 


j  =  l 


s  > 


j=l 


Si 

j"l 


J=i 
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The  purpose  of  Subroutine  SHELLS  is  briefly  described  in  Table  7-3a  and 
very  briefly  in  Volume  31  (p.  68).  Our  summary  of  its  input  and  output 
variables  is  given  in  Table  7-9.  In  our  version  of  Subroutine  SHELLS  we  have 
added  statements  (a)  to  print  a  table  of  all  the  atmospheric  properties  com¬ 
puted  at  the  shell  boundaries  and  (b)  to  compute  and  print  the  water  content 
of  the  atmosphere  along  a  vertical  path  above  each  of  the  shell  boundaries. 
The  water  content  is  expressed  in  units  of  precipitable  centimeters.  This 
computation  was  added  to  facilitate  cotnpariscns  with  other  workers. 

Table  7-9.  Input  and  output  variables  for  Subroutine  SHELLS. 


INPUT  VARIABLES 

ATHOUP  Conmon 

2 

PP  -  Pressure,  (dyne/cm  ) 

TT  -  Temperature,  (deg  K) 

SNKl)  -  Density  of  species-1,  (cm”^) 


Particular  species 

are  indicated 

as  follows: 

N 

I=1MAP(N)  SNI(I)  Set 

by  Subroutine 

1 

8 

NO. 

SPCMIN 

2 

U 

NO 

lONOSU 

3 

21 

N^O 

NOp 

SPCMIN 

4 

15 

SPCMIN 

5 

14 

\ 

SPCMIN 

6 

6 

ATMOSU 

7 

20 

CO^ 

SPCMIN 

8 

22 

CH, 

SPCMIN 

9 

16 

HpO 

OH 

SPCMIN 

10 

18 

SPCMIN 

XYZCOM  Common 

FACT  -  Parameter  controlling  the  number  of  altitude  boundaries  and 
their  spacing.  Nominal  value  is  1.0,  but  a  reasonable 
range  is  between  0.1  and  10.0  (per  L.  Ewing).  The  original 
algorithm  provided  by  G.E.  Tempo  allowed  a  maximum  of  81 

(continued) 
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Table  7-9.  Input  and  output  variables  for  Subroutine  SHELuS  (Cont'd). 


boundaries,  but  a  revision  by  GRC  reduced  this  number  to  61 
and  also  altered  the  spacings.  We  have  adopted  the  GRC 
revision.  In  the  coroients  of  our  listing  of  SHELLS,  we 
have  given  the  boundary  altitudes  per  GET  algorithm  for 
FACT=1.0  and  per  GRC  algorithm  for  FACT=0.1,  1.0,  and  10.0. 
Here,  we  record  the  results  for  GRC's  FACT=1.0  (Xr,=1.25, 
X^=3.125.  X2=7. 81251. 


J 

HS 

J 

HS 

J 

HS 

“““ 

— 

— 

1 

0. 

10® 

13.125 

18*^ 

42.8125 

2 

1.25 

11 

16.250 

19 

50.6250 

3 

2.50 

12 

19.375 

20 

58.4375 

4 

3.75 

13 

22.500 

21 

66.2500 

5 

5.00 

14 

25.625 

22 

74.0625 

6 

6.25 

15 

28.750 

23 

81.8750 

7 

7,50 

16 

31.875 

24 

89.6875 

8 

9 

8.75 

10,00 

17 

35.000 

25 

97 . 5000 

^JCHNGl  ^ICHNGZ 


OUTPUT  VARIABLES 
XYZCOM  Common 

NS  -  Number  of  altitude  boundaries 
For  J  =  1,NS*,  N  =  l,10 

HSHELL(J),  -  Altitude,  temperature,  pressure,  and  species-N  density  at 
TS{J),  altitude-boundary  J., 

PS(J),  (cm,  deg  K,  atm,  cm  ) 

XNSPEC(J,N) 


7-4  INTEGRATION  OF  NBR  MODULE  INTO  ROSCOE-IR 

7-4.1  General 

Table  7-10  provides  a  guide  to  the  integration  of  the  NBR-Module 
routines  into  ROSCOE-IR.  For  these  routines,  we  now  mention  some  of  the 
differences  between  the  routine  in  the  stand-alone  version  of  the  NBR  Module 
and  the  routine  in  ROSCOE-IR. 
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Table  7-10. 


Guide  to  integration  of  NBR  Module  into  ROSCOE-IR. 


NBR- 

-Module  routine" 

Program  in 

ROSCOE-IR 

Name 

Purpose  of  call 

calling  NBR 

-Module  routine 

OINITL  , 

b 

ROSMAIN 

Overlay  (0,0) 

ATMOSU° 

e 

ATKGEN , 

Overlay  (3,1) 

CLOUDO 

f 

ATKGEN, 

Overlay  U,l) 

TRANSB 

G 

ATEGEN , 

Overlay  (3,1) 

SHELLS 

h 

ATKGEN. 

Overlay  (3,1) 

SETALT 

i 

OUOOK. 

Overlay  (3,25) 

UPWELL 

j 

OLOOK, 

Overlay  (3,25) 

UPWELT 

k 

EMISCAT , 

Overlay  (3,31) 

\ach  of  these  routines  (except  UPWELT  which  is  not  in  the  stand-alone  version 
of  the  Nbk  Module)  is  called  by  the  driver.  Program  DRVLIPW. 

^To  initialize  tiie  OSA  routines. 

'"Strictly,  Subroutine  qiNITL  is  called  by  Subroutine  SOSCOt  which  is  called  by 
Program  ROSMAIN . 

'^Known  as  ATMOS  in  ROSCOt-IR. 

®To  initialize  atniospheric  routines  depending  on  location  and  time. 

^To  initialize  statistical-cloud  submodel  properties. 

^0  prepare,  from  the  basic  S-cm"^  resolution  band-model  parameters  file, 
band-model  parameters  for  prescribed  spectral  resolution. 

*^To  establish  atmospheric  grid  for  h  sioo  km. 

^To  detennine  the  altitudes  (depending  on  wavelength  of  interest)  at  which 
Subroutine  IJP'aELL  is  to  compute  the  upwelling  natural  background  radiation, 

■^To  compute,  for  a  Point  V  at  each  of  a  set  of  NALT  altitudes  above  a  given 
geographic  position,  characterized  by  ‘'aterial  MSM  and  Property  DOiMSM),  the 
natural  upwelling  spectral  radiance  directed  toward  Point  V  from  Points  P  on 
Earth's  surface  with  respect  to  Point  V  at  MNADll  representative  nadir  angles 
and  NAZI  representative  azimuth  angles. 

k 

To  interpolate  the  upwelling  radiation  array  UPTAONd  ,M,L)  in  altitude  (I) 
and  select  the  appropriate  band- interval  (M)  in  broad-band  (L).  For 
altitudes  ZKM  ^  12  km,  UPRADM  is  not  the  cloud- free  result  but  the  50- 
percentile  of  the  radiance  distribution  function  for  statistical  clouds  (if 
included  in  the  problem). 
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Our  QIMITL  was  prepared  by  G.E.  Tempo  and,  while  different  from 
GRC's,  is  said  to  be  equivalent  for  the  present  purposes. 

Our  ATMOSU,  documented  in  Volume  14a- 1,  does  not  contain  the  OSA 
System  as  does  the  GRC  version. 

GRC's  CLOUDO,  more  restricted  than  SAI's  documented  in  Volume  24, 
initializes  only  statistical  (as  opposed  to  deterministic)  cloud  data.  How¬ 
ever,  with  respect  to  the  NQR  Module  which  contains  only  statistical  clouds, 
the  two  versions  are  presumably  equivalent  (except  for  GRC's  DSA),  although 
the  details  have  not  been  verified. 

Subroutine  TRANS3  contains  the  DSA  System  in  both  versions  and  should 
be  the  same  in  both  versions  except  for  one  small  difference.  The  logical 
variable  TRNSOPT  enters  through  Common  OPTIOM  in  the  SAI  version  whereas  in 
the  GRC  version  TRNSOPT  is  set  to  Vlord-27  (FAST  or  GOOD)  in  the  Basic 
Oataset-80  (No.  9). 

Our  Subroutine  SHELLS  is  the  same  as  the  GRC  version  in  all  essential 
aspects.  (See  Section  7-3. 3. 3  for  small  differences.) 

Subroutine  SETALT  should  be  the  same  in  both  versions. 

Subroutine  UPHELL,  written  in  terms  of  the  DSA  Syst&i)  in  both  ver¬ 
sions,  should  be  essentially  the  same.  SAI's  version  contains  many  print 
statements  properly  deleted  in  the  GRC  version.  The  comment  regarding  TRNSOPT 
in  Subroutine  TRANSB  applies  here,  too. 

Subroutine  UPNELT,  not  in  the  stand-alone  version  of  the  N3R  Module, 
is  discussed  in  Section  7-4.2. 

7-4.2  Subroutine  'JPRELT 

Subroutine  UPNELT  was  prepared  by  GRC  to  select  the  appropriate  wave- 
number  interval  and  to  interpolate  in  altitude  the  upwelling  natural  radiation 
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array,  UPRAQM(1,K,JBAN0).  For  aUitudes  ZKH  >  12  km,  UPRAON  1s  not  the  cloud- 
free  result  but  the  50-percentile  of  the  radiance  distribution  function  for 
statistical  clouds  (if  included  in  the  problem).  Table  7-11  gives  the  input 
and  output  variables  for  Subroutine  UPWELT. 
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Table  7-ll.  Input  and  output  variables  for  Subroutine  UPWELT. 


INPUT  VARIftBLES 

Argument  List 

HCM  -  Altitude  at  v^ich  upwelling  spectral  radiance  is  desired  in 
Progran  EMISCAT.  (cm) 

Vi'L,  -  Lower  and  higher  limits  of  wavenumber  interval  for  which 

WH  upwelling  spectral  radiance  is_desired  (set  in  Program 
EMISCAT  from  Oataset-B! ).  (cm 

UPWELS  Comnon 

For  I=1,NALTJ;  L=1,NWAVEJ;  M=1,MBANDS 
MALT(M)  -  Number  of  altitudes  ZKM(1,M)  at  which  upwelling  spectral 
radiance  has  been  computed  for  (broad)  wavelength-band 
index  M.  Defines  NALTJ. 

ZKMd.M)  -  Altitudes  of  Point  V  above  UPWALT  at  which  upwelling  radi¬ 
ance  is  computed,  (km) 

NWAV£(M)  -  Number  of  wavenumbers  at  which  the  upwelling  spectral  radi¬ 
ance  has  been  computed  for  (broad)  wavelength-band  index  M. 
Defines  NWAVEJ. 

LIPRADN (I  ,L,M)  -  The  nadir- averaged  value  of  UPRAOAd  ,J,L).  See  Table  6-2 

for  Subroutine  UPWELL.  In  the  (iRC  version,  for  altitudes 
ZKM  >  It  km  and  if  clouds  are  included,  UPRACN  is  not  the 
cloud-free  result  but  the  50-percentile  of  the  radiance 
distribution  function  for  statistical  clouds. 

[W/Icm'"  sr  cm"*)] 

WV(L,M)  -  The  array  of  central  wavenumuers  corresponding  to  (broad) 
wavelength-band  index  M.  Set  in  Program  OLOOK  from 
Dataset-LI.  (cm'*) 

NBANOS  -  Number  of  (broad)  wavelength  bands. 

OUTPUT  VARIABLES 
Argument  1 i st 

-  The  value  of  the  upw^idng  natural  radiation  for  the  wave- 
number  interval  (Wl,WH),  averaged  over  the  downward  hemis¬ 
phere  and  logarithmically  interpolated  from  the  array 
UPRAONI  for  the  input  altitude  HCM.  LPhotons/( cm^  sec  sr 
cm  ^)] 
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SECTION  8 


LISTING  OF  SELECTED  ROUTINES 


In  this  section  we  provide  a  FORTRAN  listing  o".  those  routines  in  the 
NBR  Module  which  have  not  been  published  elsewhere  (or  at  least  rot  in  the 
form  in  which  they  are  used  in  the  N3R  Module).  An  inde)^  to  such  routines,  as 
well  as  their  originator,  is  given  in  Table  8-1.  Table  7-3a  tells  where  list¬ 
ing  of  the  other  routines  have  been  published. 

Table  8-1.  Index  to  routines  with  FORTRAN  listing  in  Volume  27. 


Routine 

Origi nator^ 

Page 

Routine 

Originator 

ORVUPW 

SAI 

227 

RINOUT 

SAI 

268 

ACC  DM 

GET 

237 

SEGMENT 

GET 

271 

AEROSOL 

VI 

233 

SET  alt 

SAI 

275 

AGAGEO 

SAI 

243 

SHELLS 

GET 

277 

ATMRAD 

GET 

244 

SOLRAO 

SAI 

280 

CANGLE 

SAI 

249 

sortlj 

SAI 

281 

DOT 

GET 

249 

STEP 

GET 

282 

ERF 

SAI 

249 

STEPS 

GET 

284 

F,SURF 

SAI 

25G 

SUBVEC 

GET 

284 

FRAC 

GEi 

254 

SURRAO 

5A1 

285 

FRE5NL 

SAI 

255 

TAN  GEO 

SAI 

295 

GCRCLE 

SAI 

257 

TRANS 

GET 

296 

GEO RE A 

5A1 

25.8 

TRANSB 

GET 

303 

geotan 

SAI 

258 

TRNSCO 

GET 

303 

SAI 

259 

•JNITV 

GET 

312 

GLITTR 

SAI 

2&0 

'•PyELL 

SAI 

312 

PATH 

GET 

265 

VEIN 

GET 

333 

PLANCK 

GET 

267 

XMIT 

GET 

333 

RE^TAN 

SAI 

267 

^SAI  coninents  inserted  in  routines  developed  elsewhere  are  denoted  by  CLJ  in 
the  first  three  columns. 
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WOORA."  DRVUPH  ;  iNPL'f, OUTPUT, TAPE6=lN‘>'J'',TAPE6=OUTP!.''',TA!>£r,TRCn,  OPVIJPW 


1  TAPES'  OOV'JPR 

CC  DPV.IS* 

CC  T'-IS  routine  is  ppOVIOEO  tq  DRIVE  ANP  TESi  S'loaPi  ■'INE  UPKELL  ANP  ?iV'JPw 

CC  the  related  ROUTINES  N«!C“  CO“po!SE  "'HE  NA’’:i=Al  BACCGRP'JN''  POV’JPN 

CC  radiation  model  for  the  LINaiSn*>3EP  AT»CSPH£<tE.  INCLUDING  A  ORV'JPw 

CC  statistical  treA'mEN''  op  NATURAL  C"  OUOS.  DRVUPw 

CC  DRVUpr 

CC  ***  historical  Statement  Ervjpm 

CC  BECAUSE  ME  WERE  GIVEN  (6/1/78!  A  MOLECULAR  TRANSMITTANCE  0»VURW 


CC  module  5V  G.E,  tempo  THAT  HAD  SEVERAL  ROUTINES  (DRIVER  PROGRAM  DRV'JRW 
CC  ATMOST  and  SLISROI'TINES  A'^'RAO.  TRANSS.  and  TR.NSCO'  WITTEN  IN  DRVJPN 
rr  TERMS  OF  THE  GRC  PSA  SrSTfM.  HE  PREPARED  TJC  VERSIONS  OF  THE  OfiVURW 
CC  natural  background  RADIATION  (NSR)  MODULE.  ONE  VERSION,  WICh  DRVJPi.' 
CC  WE  regarded  as  the  basic  VERSION.  USED  DSA  IN  THE  SAI  DRIVER  ORVURW 


CC  FNIOGRAM  ORVb’PH.  SUBROUTINE  L'PWELL.  AND  THE  ABO'VE-NAxtp  GET  ORVJRW 

CC  SUBROUTINES,  THE  OTHER  VERSION  DID  NO’  USE  DSA.  BC'H  PRVJRW 

CC  VERSIONS  WES'  ’ESTEO  ON  SfvERAL  FNIOSIEms  AND  GAVE  THE  SAME  nRV'.'PW 

CC  ANSWERS.  DRV'JPW 

CC  (HISTORICALLT,  WE  FIRST  PREPARED  THE  DSA  VERSION  AND  THEN  DPVURW 

CC  OEVE'.OOED  THE  NON-OSA  VERSION  BV  USING  A  SET  OF  ABOUT  23E  tf^VUR 

CC  CORRECTION  CAROS  (00  AC’ION  CAROS  ANP  ABOUT  IAS  COMMENT  PRVJPW 

CC  cards;,  then,  the  NON.OSA  version  was  available  from  a  ORVjRW 

CC  PROGRAM  LieRA-R''  (IN  THE  CONTEXT  OF  THE  COC  ‘JODA’E  LDUITT  DRV'JPW 

CC  PRDGRAMn  ;,nD  the  DSA  VEPSION  WAS  OBTAINED  BY  USING  THE  *YANK  DRV'JPW 

CC  UPDATE  DIRECTIVE  TO  DELETE  THE  NON-CSA  CORRECTION  SET.'  DRV'JPW 

CC  HE  EFFECTED  THE  REMOVAL  OF  THE  OSA-USAGE  ?Y  A  nDN-STANOARO  DRV'JPW 

CC  method  WHICH  retained  as  M-jCH  of  the  DSA  COOING  AS  PC'SSISLE  DTV'JP.' 

CC  BUT  wru  NEW  MEANINGS  TO  “ANY  OF  THE  DSA  VARIABLES.  THE  OS*  ORVJPW 

Ct  statements  THAT  COULD  NC’  BE  USED  WERE  COMMEN’EO  (C-DSA!  AND  DRV'JRU 

CC  FOILOHEO  WITH  th£  NECESSARY  REPLACEMENT  STAt;*-'ENTS.  DR\T.iRH 

CC  (THIS  PROCEDURE  HAS  FEASIBLE  FOR  US  BECAUSE  ONLY  TWO  DaTASETS  ORVJP-w 

CC  WERE  INVOLVED.  IT  MAY  NOT  BE  FEASIB..E  FOR  A  CASE  Wl’''  MANY  ORV'JP'W 

CC  DATASETS.)  DRV'.'P'. 

CC  DRV'JPW 

CC  IN  OAN'JARY  H80,  O'JRING  A  REVIEW  OF  T-*E  INCORPORATION  OF  THE  OR'V'JRw 

CC  NBR  MODULE  INTO  ROSCOE.  N'.»*EROUS  ERRORS  HERE  DISCOVERED,  SU*^  PRV'JOW 

CC  OF  WHICH  WERE  COMPO'JNDED  OWING  TO  THE  FACT  THAT  THE  DATASETS  DRVjPw 

CC  USED  IN  -HE  GET  ROUTINES  HERE  INCONSIS'EN’  WITH  th£  GSC  ORVjRW 

CC  OICTION.ARy  datasets,  the  N'DN-STANDAR:'  OA’ASETS  have  now  been  CiRV'.'P.' 

CC  replaced  by  the  standard  OA’ASfTS  (EXCEP’  IN  subroutine  ORV'JRW 

CC  TRANSB).  AN  extensive  REVISION  OF  THE  (STAND-ALONE'-  NBR  DRVJPw 

CC  MODULE  HAS  REQUIRED  TQ  RRtNG  IT  INTO  A  CLOSE  CORRESPONDENCE  CRV'.'RW 

CC  WITH  the  CORRECTED  'VERSION  IN  THE  ROSCOE  CODE.  CONSEQUENTLY,  ORVJPW 

CC  IN  THIS  final  version  QF  -whE  NBR  MDO'JLE,  HE  DO  EMPLOY  The  grC  dRV'ipw 

CC  OSA  SYSTEM  (B'J’  IN  A  GE’  VERSION  AND  NO’  IN  THE  GP-’  VERSION'  pRVjP'W 

CC  WERE  APPROPRIATE.  WF  DO  NOT  PROVIDE  A  NON-OSA  VERSION.  ORVJPW 

CC  ORV»W 

CP»t<IN  ONAREA,  OWAReACO).  QFREHD.  QND'S’,  ONLNICS,  07S1ZE,  DRV'JPW 

1  QNTSLK,  QCHEno,  OCOUNT'K'),  ODSIZEIID',  ONSIZt,  O'-UNIT'IO',  DRV'JRW 

2  OERLUN.  OFBlTSf?,10',  OtH  CMV'.'PW 

integer  QNAREA,  QWAREA,  QFPEHD.  ONDTsT,  QNi  N'lS,  OZSIJE,  QN/ELE,  DRV'JPW 

1  Q’HEAO.  QCnuNT,  OOSIZE.  QMODLK,  QNSIZE,  QLUMt.  OFIE’.D.  DRV'jF. 

2  OERL'JN,  OFBITS,  OCRSiZ  DRVJP'. 

COfCN  /  TIME  /  IYR5,  IMONS,  IOA''S,  ZT.  PLAT.  PLON,  jn,  GA’.  FVR,  DRVJ-". 

1  FST,  RH0s».“,  JHl  DRVJPw 

CO»n)N  /  VRC  /  WVFlAG,  method  DRV'.'Pw 


C 

Q 

11 
1  o 

1  C 

16 

2  ^ 

?b 

?: 

?? 

?3 

ys 

yQ 

yy 

■3’ 

y~ 

jis 

7f 

y 

3? 

39 

^  i 

44 
49 

AC. 

a? 

45 

40 

9? 

*'! 

5.*' 

94 

CC, 

96 

9? 


COHWN  /  ZHTW  /  X»(63),  TpftXG 

C(mw  /  mcm  /  itmte.  ltmti,  hs,  hshelkbh,  Tsfsn.  ps'sh, 

1  XN5P:C(81,10).  Udo.io.?),  UP(10.10.2).  ••riLS. 

2  FACT 
cotton  /  OPTION  /  TSNSOPT 
CCtWON  /  OPTINl  /  RAOSW 

cotton  /  XT  /  n(ioi 

cotton/ AEROK  '  KVIS,  XPTTPE 

COttOn/PWAHS/  INFIL .  lOF  IL  .PI  .ERAD.OGTOR  .RTOM 

rOttOft/UPnCLS/  LiPWALT.U«.'LOn,UfVLAT.nAl.T/5).2Knn3.S<.nnADIR. 

•  «An,nnAVFf55,10AYV.CL0FLS.UPRADn(13.10.5), 

cowoNAiPnasi/ 

2  i;010F6,10I.ROIOA(6.JO,10),R010ttf6.10). 

3  RO?5(6, 10), R0?5A(6. 10.10), ftO?5n{6. 101. 

A  R050(6.10),RC»OA(6.10,10).R050N(6.10). 

5  R09Q(6,101,RORaA(6,10.10).R>J90H(6.101, 

6  R100(6.101.RIOOA(6.10.10).R100n{6.10) 

7  ,AfN.»A(6,10.10).AftCVH(6.10) 
cotton/upwasi/  uprad(6.io).uprad.a(13.io.io) 

li«nALTj.  Aj*nnADlR,  rk-hazi,  ll^vaveo.  im»ii8AHDS 
UPRAD(KtC,Lw),  UPRAOACI.JJ.U).  UPRAOUdl.LL.nn) 

OIHEMSION  0*XX(?000) 

eooivalence  (  0.  oxxx  ) 

DinENSIOn  00(7),WW(10),DW(10).ALAKdO).Dl.AH(10) 
oiHinsion  snco  end),  mhi  wd),  wto  8n(i).  whi  snd), 

•  LINRV  Md) 

EOUivALEtiCE  (  od),  snlo  an  >.  (  q(7).  B*ni  an  ). 

•  (  .0(3),  W-0  9t  ),  <  Od).  «H1  bn  ). 

•  (  0(5).  UHRV  bn  ) 

OINEKSIOn  BNLO  Bl(l),  BNHl  Bid),  WIO  31(1),  nHl  Bid), 

«  BAGNO  BI(1),  TFLAG  81(1),  TRANS  Bid).  ID5BX  Bid) 

EOUIVAIERCE  (  0(1).  BNLO  BI  ),  (  0(2).  BtWl  Bl  ). 

•  (  0(3).  WLO  BI  ),  (  0(<).  WHI  BI  ), 

•  (  0(5).  BKGNO  Bl  ).  {  0(6).  TFLAG  SI  ).. 

•  (  0(7).  TRANS  B!  ).  (  0(8).  tOSBx  Bl  ) 


LOGICAL  SPCULR 
LOGICAL  RADSW,  TSNSOPT 

DATA  n  /  200.,  300.,  500..  750.,  1000.,  150 
♦  5000.,  7000.  / 

DATA  PI  )  3.H15928S  / 

data  00  /  0.10,  10.,  0.50,  0..  0.,  0.,  0.5  / 


1500.,  2000..  3000.. 


file  n/tiES 

*  TAPE2  AND  TAPE3  ABE  IDENTIFIED  IN  PR0G«««  I»W">W  HUH  ITHTE 
AND  LTNTE,  RESPECdVELT. 

ITWTE  (ALIAS  TAPIN)  Att’  ITNTE  (ALIAS  TA^T)  ARE  READ  AND 
WSmEN,  RESPECTIVELY,  BT  SUBROUTINE  TRANSB. 

•  TAPES  IS  WRITTEN  BT  SUBROUTINE  UPWELL  AND  READ  BY  PROGRW 
DRWPW, 

READ  OR  otherwise  SET  THE  FOLLOWING  PARAMETERS... 

PARAMETER  IN  COttCN  DEFINED  IN  KEAD/SET  COtttCNT 

KVIS  AEROK  SUB.  AEROSC,  R 

KPTTPE  AEROK  SUB.  AEROSOL  R 


DRVJPH 

59 

ORVLIPW 

6C 

ORVUPW 

61 

ORVJPW 

6? 

ORVUPH 

63 

DRVJPW 

6« 

ORirjPw 

65 

ORVUPH 

66 

OflVUPW 

67 

WVUPH 

63 

DRVJPH 

69 

ORVUPH 

70 

ORVUPH 

71 

DRVUPH 

72 

ORVUPH 

73 

ORVUPV 

/  •« 

DRVUPW 

75 

ORVUPH 

76 

ORVUPH 

77 

ORVUPH 

I'B 

DRVUPH 

79 

DRVUPW 

80 

ORVUPH 

81 

DRVUPH 

82 

ORVUPH 

83 

DRVUPH 

8A 

DRVUPH 

9S 

DRVJPH 

86 

ORVUPH 

87 

ORVUPH 

88 

ORVUPH 

89 

ORVUPH 

90 

DRVUPH 

91 

DRVUPW 

92 

ORVUPH 

93 

ORVUPH 

94 

DRVUPW 

95 

ORVJPH 

96 

ORVUPH 

97 

DRVUPH 

98 

DRVJPH 

99 

DRVUPW 

1.90 

rpvuPH 

10! 

DRVUPW 

10? 

DRVUPH 

103 

DRVUPH 

104 

DflVJPW 

105 

MVUPH 

106 

DRVUPH 

107 

DRVUPH 

109 

ORVIPH 

109 

ORVUPH 

no 

ORVUPH 

111 

DRVl^PH 

112 

ORVJPH 

113 

ORVL'PH 

114 

ORVUPH 

115 

22G 


cc 

RADSW 

OPTINl 

SUB.  UPWELL 

R 

ORVUPW 

116 

cc 

ORVUPW 

117 

cc 

TRHSOPT 

OPTION 

SIJB.  TRANS 

R 

I 

ORVUPW 

118 

cc 

ORVUPW 

llS 

cc 

INFIL 

PAR AMS 

S 

B1 

ORVUPW 

IZO 

cc 

iofil 

PAR AMS 

s 

BZ 

ORVUPW 

IZl 

cc 

PI 

PARWS 

s 

ORVUPW 

IZZ 

cc 

ERAD 

PAR AMS 

s 

C 

ORVUPW 

1Z3 

cc 

DGTOR 

PAR AMS 

s 

01 

OfiCJPW 

iza 

cc 

RT05G 

PAR AMS 

s 

DZ 

ORVUPW 

1Z5 

cc 

ORVUPW 

126 

cc 

lYRS 

TIME 

DRVATil 

R 

E 

ORvurw 

127 

cc 

INONS 

TIME 

ORVATM 

R 

E 

ORWPW 

1Z8 

cc 

lOAYS 

time 

ORVATM 

R 

E 

ORVUPW 

1Z9 

cc 

ZT 

TIME 

DRVATM 

R 

E 

ORVUPW 

130 

cc 

PLAT 

TIME 

SUB.  SOLZEN 

s 

ORVUPW 

131 

cc 

PLON 

TIME 

SUB.  SOLZEN 

s 

ORVUPW 

132 

cc 

eco 

— 

ORVATM 

R 

E,F1 

ORVUPW 

133 

cc 

GLO 

— 

ORVATM 

R 

E.F? 

ORVUPW 

134 

cc 

ORVUPW 

135 

cc 

UPWALT 

UPWELS 

SUB.  UPWELL 

s 

ORVUPW 

136 

cc 

UPWLON 

UPHELS 

SUB.  UPWELL 

s 

ORVUPW 

137 

cc 

UPWLAT 

UPHELS 

SUB.  UPWELL 

s 

ORVUPW 

138 

cc 

NNAOIR 

UPWELS 

SUB.  UPWELL 

R 

ORVUPW 

139 

cc 

NAZI 

UPWELS 

SUB.  UPWELL 

R 

DRVUPW 

140 

cc 

NUAVE(5) 

UPWELS 

SUB.  UPWELL 

s 

ORVUPW 

141 

cc 

cloflg 

UPWELS 

SUB.  UPWELL 

R 

ORVUPW 

142 

cc 

MSM 

.. 

SUB.  UPWELL 

R 

DRVUPW 

143 

cc 

00{MSM) 

.. 

SUB.  UPWELL 

s 

G 

DRVUPW 

144 

cc 

SPCULR 

— 

SUB.  UPWELL 

R 

DRVUPW 

145 

cc 

DRVUPW 

146 

cc 

WVFLAG 

VPC 

DRVATM 

s 

E 

DRVUPW 

147 

cc 

METHOD 

VPC 

ORVATM 

s 

E 

DRVUPW 

148 

cc 

ORVUPW 

149 

cc 

TTd) 

XY 

SUB.  TRANS 

s 

G 

DRVUPW 

150 

cc 

DRVUPW 

151 

cc 

ITHTE 

lYZCOM 

SUB.  TRAHSB 

s 

ORVUPW 

152 

cc 

LTMTE 

XYZCOM 

SUB.  TRANSB 

s 

DRVUPW 

153 

cc 

NMOLS 

XYZCOM 

SUB.  TRANS 

s 

DRVUPW 

154 

cc 

FACT 

XYZCOM 

SUB.  SHELLS 

R 

DRVUPW 

155 

"C 

ORVUPW 

156 

cc 

cc 

TPFLAS 

ZHTEMP 

DRVATM 

s 

E 

ORVUPW 

ORVUPW 

157 

158 

cc 

B1  INPUT  file  FOR  STATISTICAL  Cl.OUt 

model 

DRVUPW 

159 

cc 

B?  OUTPUT  FILE  FOR 

STATI STICAL  CLOUD  MODEL 

ORVUPW 

160 

cc 

C  EARTH 

RADIUS.  KM 

DRVUPW 

161 

cc 

01  DEGREES-TO-RADIANS 

DRVUPW 

162 

cc 

DZ  RADIANS-TO-DEGREES 

ORVUPW 

163 

cc 

E  PROGRAM  DRVATM  FOR  SUBROUTINES  ATMOSU, 

5PCMIN,  ETC. 

ORVUPW 

164 

cc 

FI  USED 

TO  SET  PLAT 

DRVUPW 

165 

cc 

FZ  USED 

TO  SET  PLON 

DRVUPW 

166 

cc 

G  SET  BY  DATA  STATEMENT 

DRVUPW 

167 

cc 

HI  IDEAL!  Y  BUT  NOT 

NECESSARILY  SET 

TO 

plat 

DRVUPW 

168 

cc 

HZ  IDEALLY  BUT  NOT  NECESSARILY  SET 

TO 

PLON 

DRVUPW 

169 

cc 

I  ALSO 

SEE  SUBROUTINE  TR.AN5B 

DRVUPW 

170 

ccc 

DRVUPW 

171 

cc 

IN  THE  FOLLOWING  SEVEN 

statements,  the 

D5A  MEANINGS  ARE  ... 

DRVUPW 

172 

229 


r 


cc 

QNAREA 

NUMBER  OF  STORAGE  AREAS. 

DRVUPW 

173 

cc 

OWAREAd) 

s 

NUMBER  OF  WORDS  OF  HIGH-SPEED  MEMORY  (SCMl. 

DRVUPW 

17A 

cc 

NOTE  THAT  THROUGH  THE  INITIALIZATION  PERFORMED  BY 

DR  VLIPW 

175 

cc 

subroutine  OINITL,  the  MAXIMUM  NUMBER  OF  WORDS 

DRVUPW 

176 

cc 

AVAILABLE  IN  THE  0-ARRAY  IS  SET  EQUAL  TO 

ORVUPH 

177 

cc 

OWAREAdl.  THUS  THE  LENGTH  OF  BLANK  COMMON 

DRVUPW 

178 

cc 

EOUALS  the  sum  of  QWAREAd)  AND  THE  NUMBER  (891 

DRVUPW 

179 

cc 

OF  WORDS  REQUIRED  FOR  THE  BLANK-COMMON  VAR1AE;.FS 

DRVUPW 

180 

cc 

OTHER  THAN  Q. 

DRVUPW 

181 

cc 

THE  MINIMUM  VALUE  REQUIRED  FOR  OWARFA(l)  MAY  BE 

DRVUPW 

182 

cc 

determined  by  NOTING  THAT 

OR VUPW 

183 

cc 

(A)  THE  EIRST  TWO  WORDS  AND  THE  LAST  WORD  IN  THE 

DRVUPW 

ISA 

cc 

0-ARRAY  ARE  USED  BY  THE  DSA  SYSTEM. 

DRVUPW 

185 

cc 

(B)  EACH  dataset  HAS  A  ZEROTH  WORD. 

DRVUPW 

186 

cc 

(C)  THE  NUMBER  OF  WORDS  USED  BY  THE  Z- BLOCK 

DRVUPW 

187 

cc 

DATASET  IS  HARDWIRED  TO  BE  101  (SUBROUTINE 

DRVUPW 

188 

cc 

OINITL  SETS  02S12E=100.  AND  A  ZEROTH  WORD  IS 

DR VUPW 

189 

cc 

REOUIREOl.  ONE  MAY  DETERMINE  THE  MINIMUM 

DRVUfW 

190 

cc 

SIZE  REQUIRED  FOR  THE  Z-BLOCK  BY  NOTING  THAT 

DRVL'PW 

191 

cc 

TWO  WORDS  (A  DATASET  POINTER  WORD  AND  A  LINK 

DRVUPW 

19? 

cc 

WORD)  ARE  REQUIRED  FOR  EACH  DATASET  AND  ALSO 

DRVUPW 

193 

cc 

ONE  LIST  HEADER  WORD  FOR  THE  DATASETS  ON  A 

DRVUPW 

19A 

cc 

LIST. 

DRVUPW 

195 

cc 

IE  TWO  BANOS.  EACH  WITH  TWO  BAND  INTERVALS,  ARE 

DRVUPW 

196 

cc 

USED  FOR  A  SWPLE  PROBLEM,  THEN  ONE  NEEDS 

DRVUPW 

197 

cc 

FOR  TWO  OATASETS-BN,  2»(5*1)»1? 

DRVUPW 

198 

cc 

FOR  FOUR  OATASETS-BI,  A*(8+1)=36 

DRVUPW 

199 

cc 

FIRST  TWO  AND  LAST  WORDS  OF  Q,  =3 

DRVUPW 

2on 

cc 

2-BLOCK,  =16 

DRVUPW 

201 

cc 

ZEROTH  WORD.  1 

DRVUPW 

202 

cc 

DATASETS-bN,  1*2*?  •  5 

DRVUPW 

203 

cc 

DATASETS-Bl.  2«d+2*2)*  10 

DRVJPW 

20A 

cc 

— 

DRVUPW 

205 

cc 

2- BLOCK  TOTAL  =  16 

DRVUPW 

206 

nc 

DRVUPW 

207 

cc 

total  WORDS  =67 

DRVUPW 

208 

cc 

USE  OF  NEAR-MINIMUM  SIZES  FOR  THE  Z-BLOCK  AND  FOR 

DRVUPW 

209 

cc 

QWAREAd)  IS  HIGHLY  RECOMMENDED  WHEN  ONE  HANTS  TO 

DRVUPW 

210 

cc 

USE  PDUMP  TO  SEE  WHAT  IS  GOING  ON  IN  BLANK 

DRVUPW 

211 

cc 

COMMON . 

DRVUPW 

212 

cc 

0WA»EA(?1 

> 

NLIMBEP  OF  WORDS  OF  LOW-SPEED  MEMORY  (LCM). 

DRVUPW 

213 

cc 

onsiCEi 

:n 

= 

NUMBER  Of  WORDS  IN  SMALLEST  DATASET. 

DRVUPW 

21 A 

cc 

ODSIZEI 

[2) 

■ 

AN  ASSIGNED  value  OF  ZERO  IMPLIES  THAT  DATASETS 

DRVUPW 

216 

cc 

LARGER  THAN  THE  LAST  ASSIGNED  INCREMENT  WILL  BE 

DRVUPW 

216 

cc 

ALLOCATED  THE  EXACT  NUMBER  OF  WORDS  REQUIRED. 

DRVUPW 

217 

cc 

qeplu;; 

» 

LOGICAL  UNIT  N'JMBER  OF  DEVICE  USED  FOR  SYSTEM 

DRVUPW 

218 

cc 

ERROR  MESSAGES. 

HR VU^W 

210 

cc 

qlNITL 

c 

THIS  SUBROUTINE  INITIALIZES  OTHER  SYSTEM 

DRVUPW 

220 

cc 

VARIABLES  and  SETS  UP  THE  FREE  LIST. 

DRVUPW 

221 

rr 

DR  VLIPW 

??? 

ONAREA  -  2 

DR VUPW 

223 

QHAREAd)  • 

2000 

DRVIIPh 

2?A 

OWAREAI?)  - 

50000 

DRVUPW 

??s 

ODSJZF'l)  - 

5 

DRVUPW 

226 

005]ZE(2)  . 

n 

DRVUPW 

227 

QERLUN  =  6 

DRVUPW 

22B 

call  OINITL 

DRVUPW 

??" 

230 


ccc 

DRVUPW 

230 

cc  * 

*  *  INITIALIZE  AMBIENT  ATMOSPHERE  AFTER  SEniNG  PARAMETERS  IN 

DRVUPW 

231 

cc 

TIME,  VPC.  AND  ZHTEMP  COMMONS. 

DRVUPW 

23? 

READ  (5,3151  lYRS,  IMONS,  lOAYS,  2T,  GCO,  GLO 

ORVUPW 

233 

WRITE(6.316)  lYRS,  IMONS,  lOAYS,  ZT,  C-CO,  GLO 

DRVUPW 

234 

GCO  •  GCO  ‘  PI  /  180. 

DRVUPW 

235 

GLO  -  GLO  »  PI  /  180. 

DRVUPW 

236 

PLAT  .  .5  *  PI  -  GCO 

OPVUPW 

237 

PLON  =  GLO 

ORVUPW 

238 

WVFLAG  »  0.  J  METHOD  *0  S  TFFLAG  -  0. 

DRVUPW 

239 

CALL  ATMOSU  (  1,  120.  ) 

ORVUPW 

240 

ccc 

ORVUPW 

241 

cc  * 

•  *  INITIALIZE  NATURAL  CLOUDS. 

DRVUPW 

242 

ccc 

DRVUPW 

243 

cc 

THE  STATISTICAL  CLOUD  SUBMODEL  OF  THE  SAIZPA  NATURAL  CLOUD 

ORVUPW 

244 

cc 

MODEL  (NCM)  HAS  NOW  BEEN  INTEGRATED  INTO  THE  UPHELLING 

DfiVUPW 

245 

cc 

NATURAL  radiation  MODEL.  (THERE  IS  NO  INTENTION  OF  INCORPORA¬ 

DRVUPW 

246 

cc 

TING  THE  DETERMINISTIC  CLOUD  SUBMODEL.]  THE  INTERFACE  OF  THE 

DRVUPW 

247 

cc 

UPWELLING  NATURAL  RADIATION  MODEL  WITH  THE  NCM  IS  ACHIEVED  IN 

ORVUPW 

248 

cc 

TWO  GENERAL  STEPS.  (1)  A  CALL  (FROM  THE  DRIVER  PROGRAM  FOR 

DRVUPW 

249 

cc 

THIS  UPHELLING  NATURAL  RADIATION  MODEL)  TO  NCM  SUBROUTINE 

ORVUPW 

250 

cc 

CLOUDO  WHICH  READS  DATA  CAROS  FOR  THE  STATISTICAL  CLOUD  SUB¬ 

ORVUPW 

251 

cc 

MODEL  AND  (2)  REPLACEMENT  OF  THE  CALL  FROM  THE  NCM  DRIVER  TO 

DRVUPW 

252 

cc 

THE  NCM  subroutine  SCLOUO  BY  A  SET  OF  CALLS  AND  OPERATIONS  IN 

ORVUPW 

253 

cc 

subroutine  UPWELL  which,  IN  THEIR  TOTALITY,  ADAPT  THE  ROLE  OF 

ORVUPW 

254 

cc 

SUBROUTINE  SCLOUD  TO  OUR  SPECIAL  NEEDS.  A  FLAG  (CLDFLG),  SET 

ORVUPW 

255 

cc 

BY  A  READ  STATEMENT,  HAS  BEEN  INTRODUCED  SO  THAT  NATURAL 

DRVUPW 

256 

cc 

CLOUDS  ARE  IGNORED  IF  CLDFLG=0  AND  ARE  INCLUDED  IF 

DRVUPW 

257 

cc 

(A)  CLOFLG*!  and  (B)  the  ALTITUDE  ABOVE  THE  SURFACE  AT  WHICH 

ORVUPW 

268 

cc 

the  UPWELLING  RADIATION  IS  COMPUTED  IS  A’'  LEAST  12  ICM  (THE 

ORVUPW 

259 

cc 

HIGHEST  ALTITUDE  OE  THE  TOP  OF  ANY  OF  THE  STATISTICAL  CLOUDS). 

ORVUPW 

260 

ccc 

DRVUPW 

261 

READ  (5,300)  CLDFLG 

DRVUPW 

262 

HRlTE(6,3ial  CLDFLG 

DRVUPW 

263 

cc 

*  SET  PARAMETERS  IN  FARAMS  COMMON. 

ORVUPW 

264 

INFIL  '  5  t  lOFIL  •  6 

DRVUPW 

266 

ERAD  »  637  1  .03 

DRVUPW 

266 

OGTOR  «  PI  /  ISO.  1  RTOOG  =  1.0  /  DGTOR 

DRVUPW 

267 

cc 

*  NOTE  THAT  SUBROUTINE  CLOUDO  READS  SEVEN  CARDS,  THE  FIRST  OF 

DR  VUPW 

26R 

cc 

WHICH  IS  FOR  M00E*1  , 

DRVUPW 

269 

IF(  CLOFLG.EQ.1.0  )  CALL  CLOUDO(MODE) 

DRVUPW 

2/0 

ccc 

DRVUPW 

271 

cc  * 

*  *  create  DATASETS  BN  AND  BI  AND  SET  WORDS. 

DRVUPW 

272 

cc 

wavelengths  in  these  TWO  DATASETS  ARE  IN  MICRONS  FOR  SAI  AND 

DRVUPW 

273 

cc 

IN  centimeters  for  grc. 

DRVUPW 

274 

J  -  0 

DRVUPW 

275 

100  READ  (5,3?0)  ALAHl ,  ALAH?.  Wl,  W7.  LINT 

DRVUPW 

?76 

C 

NEGATIVE  wavelength  DENOTES  END  OF  BANDS. 

DRVUPW 

277 

IF(  ALAMl  .LT.  0.  )  GO  TO  105 

DRVUPW 

278 

J  -  J  +  1 

DRVUPW 

279 

c 

DIMENSIONING  LIMITS  ALLOWED  NUMBER  OE  BANDS  TO  5  . 

ORVUPW 

280 

1F(  J  .GT.  5  )  GO  TO  105 

DRVUPW 

281 

NWAVE(J)  •  LINT 

ORVUPW 

2B? 

IF(  ALAMl  ,E0.  0.  )  GO  TO  10? 

DRVUPW 

2P3 

c 

BANO-LIMIT  wavelengths  ARE  INPUT. 

ORVUPW 

284 

ALMIN  =  AMINl  (  ALAMl,  ALAM2  1 

DRVIiPy 

285 

ALMAX  .  AMA*'l  (  ALAMl,  ALAM?  ) 

DRVUPW 

2«6 

o  <“>  o  <r» 


CREATE  THE  5-HORD  DATASET-BN  AND  SET  THE  FIRST  FOUR  WORDS. 

CALL  CREATE  (  5,  NBN  ) 

BNLO  BN (NBN)  >  ALHIN 

BNHI  BN (NBN)  •  ALHAX 

VLO  BN(NBN)  •  l.E+«/BNHI  BN(NBN) 

HHl  BN(NBN)  •  1.E+04/BNLC  BN(HBN) 

D8N  •  (  BNHI  BN(NBN)  -  BNLO  BN(HBN)  )  /  FLOAT(LINT) 

HRITE(6,303)  ALHIN,  ALHAX.  FLOAT(LINT),  DBN, 

*  WLO  BN(NBN).  UHI  BN(NBN) 

LOOP  00-101  IS  PATTERNED  AFTER  LOOP  DO-700  IN  GRC’S 
PROGRAH  ATKGEN. 

DO  101  I'l.LINT 

CREATE  THE  8-WORO  DATASET-BI  AND  SET  THE  FIRST  SEVEN  HORDS. 
CALL  CREATE  (  8.  NBl  ) 

BNLO  BI(N6I)  •  BNLO  BN(NBN)  *  FL0AT(I.1)>DBN 
BNHI  BI(NBI)  •  BNLO  8I(NBI)  *  DP.. 

WLO  BI(NBI)  -  1.F+04/BNH1  B1(N.'  ) 

WHI  BI(NBI)  •  l.E'^OA.XBNLO  BI(NBI) 

BKGNO  BI(NBI)  '  0. 

TRANS  Bl(NBI)  •  0. 

TFLAG  BI(NBl)  ■  0. 

IF(  I  .EQ.  1  )  TFLAfi  Bl(NBI)  •  1. 

IF(  I  .GT.  1  .AND.  I  .EQ.  LINT  )  TFLAG  BI(NBI)  •  ?. 

sn  WORO-S  OF  DATASET-BN.  LINRV  BN(NBN),  WHICH  IS  A  POINTER  TO 
THE  LIST  HEADER  FOR  THE  OATASET-81.  THERE  IS.  OF  COURSE,  A 
DIFFERENT  POINTER  FOR  EACH  OATASET-BN.  USE  OF  SUBROUTINE 
PUTBOT  MEANS  ''HAT  THE  HIGHEST  WAVELENGTH  (OR  LOWEST  WAVENUMBER 
)  IS  ON  THE  BOnOH  OF  THE  LIST, 

CALL  PUTBOT  (  LINRV  BN(NBN),  NBI  ) 

101  CONTINUE 

GET  LBAND,  THE  POINTER  TO  THE  LIST  HEADER  FOR  DATASET-BN.  IF 
THE  INPUT  BANDS  ARE  ORDERED  WITH  RESPECT  TO  INCREASING  VALUES 
OF  ALAM3  (ASSUMING  ALAM7  .GT.  ALAMl),  THEN  USE  OF  SUBROUTINE 
PUTBOT  MEANS  THAT  THE  HIGHEST  WAVELENGTH  (OR  LOWEST  WAVENUMBER 
)  IS  ON  THE  BOTTOM  OF  THE  LIST. 


CALL  PUTBOT  (  LBANO,  NBN  ) 

GO  TO  100 

BAND-LIMIT  WAVENUMBERS  ARE  INPUT. 

10?  VMIN  •  AMINl  (  Wl,  W?  ) 

WMAX  ■  AMAXl  (  Wl,  W2  ) 

ALMIN  •  1.E+04/WMAX 
ALMAX  •  l.E+0«/tWIN 

CREATE  THE  5-WORD  OATASET-BN  AND  SET  THE  FIRST  FOUR  HORDS. 
CALL  CREATE  (  5,  NBN  ) 

BNLO  BN(NBN)  •  ALMIN 
BNHI  BN (NBN I  •  ALMAX 
WLO  BN(NBH)  •  WMIN 
WHI  BN  (NBN)  •  WMAX 

OWN  .  (  WHI  BN(NBN)  -  WLO  BN(NBN)  )  /  FLOAT(LINT) 

HRITE(6,303)  ALMIN,  ALMAX,  WLO  BN(NBN),  WHI  BN(HBN), 

•  float(lint),  own 


ORVUPU 

?87 

DRVUPH 

?88 

DRVUPW 

?89 

DRVUPH 

?90 

DRVUPH 

?91 

DRVUPW 

39? 

DRVUPH 

?93 

DRVUPH 

294 

DRVUPH 

295 

DRVUPH 

296 

DRVUPH 

297 

DRVUPW 

298 

DRVUPH 

299 

DRVUPH 

300 

DRVUPH 

301 

DRVUPH 

302 

DRVUPH 

303 

DRVUPW 

304 

DRVUPH 

305 

DRVUPW 

306 

DRVUPH 

307 

DRVUPH 

30fi 

DRVUPH 

309 

ORVUPU 

310 

DRVUPH 

311 

DRVUPH 

312 

DRVUPW 

313 

DRVUPH 

314 

DRVUPW 

316 

DRVUPH 

316 

DRVUPH 

317 

DRVUPW 

318 

DRVUPH 

319 

DRVUPW 

320 

DRVUPH 

321 

DRVUPW 

322 

DRVUPH 

323 

DRVUPH 

324 

DRVUPW 

325 

DRVUPW 

326 

DRVUPH 

327 

DRVUPH 

328 

DRVUPW 

329 

DRVUPH 

330 

DRVUPW 

331 

DRVUPH 

332 

DRVUPH 

333 

DRVUPH 

334 

DRVUPH 

335 

DRVUPH 

336 

DRVUPH 

337 

DRVUPH 

338 

DRVUPH 

339 

DRVUPH 

340 

DRVUPH 

341 

DRVUPH 

34? 

DRVUPH 

343 

232 


c 

LOOP  00-103  IS  PATTERNED  AFTER  LOOP  00-702  IN  SRC’S 

ORVUPW 

344 

c 

PROGRAM  ATKGEN. 

DRVUPW 

345 

DO  103  I-1,LINT 

ORVUPW 

345 

c 

CREATE  THE  8-HORD  OATASET-Bl  AND  SET  THE  FIRST  SEVEN  HORDS. 

DRVUPW 

347 

CALL  CREATE  (  B,  NBI  ) 

DRVUPW 

348 

HLO  BI(NBI)  •  WLO  BN(NBN)  ♦  FLOAT (I-l)*D«N 

DRVUPW 

349 

WHI  Bl(NBI)  •  HLO  BI(NBI)  *  OWN 

ORVUPW 

350 

8NL0  BI(NBI]  •  l.E-KM/HHI  BI(NBI) 

DRVUPW 

351 

BNHI  BI(NBI)  -  l.EtO4/WL0  BI(NBI) 

ORVUPW 

352 

BKGND  BI(N8I)  •  0. 

ORVUPW 

353 

TRANS  BI(NBI)  •  0. 

ORVUPW 

354 

TFLAG  BI(NBl)  •  0. 

DRVUPW 

355 

1F(  1  .EQ.  1  )  TFLAG  61 (NBI)  -  2. 

DRVUPW 

356 

1F(  1  .GT.  1  .AND.  I  .EO.  LINT  )  TFLAG  BUNBI)  •  1. 

DRVUPW 

357 

c 

DRVUPW 

358 

c 

SET  WORD-5  OF  DATASET-BN.  USE  OF  PUTTOP  MEANS  THAT  THE  LOWEST  DfiVUPW 

359 

c 

WAVENUMBER  (OR  HIGHEST  WAVELENGTH)  IS  ON  THE  BOTTOM  OF  THE 

DRVUPW 

360 

c 

LIST. 

DRVUPW 

361 

CALL  PUTTOP  (  LINRV  BN(!(BH).  NBI  ) 

DRVUPW 

362 

103  CONTINUE 

DRVUPW 

363 

C 

DRVUPW 

364 

c 

GET  LHV  (LBAND)  FOR  DATASET-BN.  IF  THE  INPUT  BANDS  ARE 

DRVUPW 

365 

c 

ORDERED  WITH  RESPECT  TO  INCREASING  VALUES  OF  HI  (ASSUMING  H2 

DRVUPW 

366 

c 

.GT.  HI).  THEN  USE  OF  PUTTOP  MEANS  THAT  THE  LOWEST  WAVENUMBER 

DRVUPW 

367 

c 

(OR  HIGHEST  WAVELENGTH)  IS  ON  THE  BOHOM  OF  THE  LIST. 

DRVUPW 

368 

CALL  PUTTOP  (  LBAND,  NBN  ) 

DRVUPW 

369 

GO  TO  100 

DRVUPW 

370 

105 

NBANDS  •  MIMO(  J.  5  ) 

ORVUPW 

371 

ccc 

DRVUPW 

372 

cc  * 

*  •  COMPUTE  BANn-MOOa  PARAMETERS  AFTER  SEHING  PAR/WiETERS  IN 

DRVUPW 

373 

cc 

XYZCOM  AND  OPTION  COWCNS  NEEDED  FOR  SUBROUTINE  TRANSB. 

DRVUPW 

374 

ITMTE  *2  $  LTMTE  «  3 

ORVUPW 

375 

READ  (5,301)  TRNSOPT 

ORVUPW 

376 

HRITE(6,30A)  TRNSOPT 

DRVUPW 

377 

CALL  TRANSB  (  LBAND  } 

DRVUPW 

378 

ccc 

DRVUPW 

379 

cc  • 

*  •  INITIALIZE  ATMOSPHERIC  SHELLS  AFTER  SETTING  PARAMETER  IN 

ORVUPW 

380 

cc 

XrZCOM  COMMON. 

DRVUPW 

381 

HEAD  (5,300)  FACT 

DRVUPW 

382 

HRITE(6,302)  FACT 

DRVUPW 

383 

CALL  SHELLS 

DRVUPW 

384 

ccr 

DRVUPW 

385 

cc  * 

*  ♦  PREPARE  TO  CALL  SUBROUTINE  UPHELL  BY  SETTING  NEEDED  PARAMETERS  DKVUPH 

386 

cc 

IN  VARIOUS  COMMONS. 

DRVL'PW 

3B7 

cc 

*  SET  PARAMETERS  IN  AEROK  CONMON. 

DRVUPW 

388 

READ  (5,315)  KVIS.  KPnPE 

DRVUPW 

389 

HRITE(6,317)  XVIS,  KPTYPE 

DRVUPW 

390 

cc 

•  SET  PARAMETER  IN  OPTINl  COPtlON. 

DRVUPW 

391 

READ  (5,301)  RADSU 

DRVUPW 

39? 

HRITE(6,305)  RADSW 

DRVUPW 

393 

cc 

•  SET  PARAMETERS  IN  UPWELS  CO»CN. 

DRVUPW 

394 

UPWALT  •  0.0  S  UPHLON  ■  PLOH  t  UPHLAT  -  PLAT 

DRVUPW 

395 

READ  (5,315)  NNADIR,  NAZI 

DRVUPW 

396 

HHITE(6.319)  NNADIR,  NAZI 

DRVUPW 

397 

cc 

•  SET  PARAMETER  IN  XYZCOM  COWON.  MOTE  WOLS  IS  KNOWN  AS  ttOLS 

DRVUPW 

398 

cc 

IN  SUBROUTINE  ATMRAD  BUT  AS  NSPEC  IN  SUBROUTINE  TRANS. 

DRVUPW 

399 

tHOLS  •  10 

ORVUPW 

400 

Z33 


cc 

*  SET  TVO  OF  THE  PARAMETERS  FOR  SUBROUTINE  UPWELL  ARGUMENT  LIST 

DRVUPW 

401 

READ  (5.3151  MSH 

DRVUPW 

40? 

WRITE(6,321)  MSM 

ORVUPW 

403 

SPCULR  =  .FALSE. 

DRVUPW 

404 

IF(  MSM  .EQ.  2  )  READ  (5,301)  SPCULR 

ORVUPW 

405 

WRITE(6,322)  SPCULR 

DRVUPW 

406 

ccc 

DRVUPW 

407 

cc  *  ' 

►  ♦  LOOP  OVER  BROAD  BANDS  WITH  CALLS  TO  SUBROUTINES  SETALT  AND 

DRVUPW 

408 

cc 

UPWELL.  THE  PORTION  OF  THIS  LOOP  THROUGH  THE  CALL  TO 

DRVUPW 

40R 

cc 

SUBROUTINE  UPWELL  (BUT  WITHOUT  THE  SUBSEQUENT  PRINT)  IS 

ORVUPW 

410 

cc 

PATTERNED  AFTER  THAT  IN  THE  GRC  PROGRAM  OLOOK. 

DRVUPW 

411 

cc 

USE  OF  PREV  IN  statement  LABELS  106  AND  107  MEANS  THAT  BOTH 

DRVUPW 

412 

cc 

BANDS  AND  BAND  INTERVALS  ARE  BEING  PROCESSED  IN  ORDER  OF 

ORVUPW 

413 

cc 

INCREASING  WAVENUMBERS. 

DRVUPW 

414 

c 

ON  THE  FIRST  CALL  TO  SUBROUTINE  PREV.  THE  INPUT  VALUE  OF 

ORVUPW 

415 

c 

LHBAND  IS  EQUAL  TO  LBAND,  THE  (l-FiaO)  POINTER  TO  THE  (2- 

DRVUPW 

416 

c 

FIELD)  LIST  header  FOR  DATASET-BN,  WHEREAS  THE  RETURN  VALUE  OF 

DRVUPW 

417 

c 

LHBAND  IS  THE  LAST  (3-FiaD)  LINK-WORD  FOR  DATASET-BN  AND  THE 

ORVUPW 

418 

c 

RETURN  VALUE  OF  NBN,  THE  DATASET-BN  INDEX  (OR  POINTER),  IS  THE 

DRVUPW 

415 

c 

Q-ARRAY  ADDRESS  OF  THE  FIRST  (NOT  ZEROTH)  KURD  OF  DATASET-BN. 

DRVUPW 

420 

c 

SUCCESSIVE  CALLS  TO  PREV  RETURN  SUCCESSIVE  LINK  WORDS  AS  THE 

ORVUPW 

421 

c 

VARIABLE  LHBAND  UNTIL  THE  LAST  CALL  (WHICH  RETURNS  ZERO  EOR 

DRVUPW 

422 

c 

THE  DATASET  INDEX  NBN)  RETURNS  THE  (2-FIELO)  LIST  HEADER  AS 

ORVUPW 

423 

c 

THE  WORD  FOR  LHBAND. 

DRVUPW 

424 

J  *  0 

DRVUPW 

425 

LHBAND  •  LBAND 

DRVUPW 

426 

106 

CALL  PREV  (  LHBAND,  NBN  ) 

DRVUPW 

427 

IF(  NBN  .EQ.  0  )  GO  TO  110 

ORVUPW 

428 

J  =  0  +  1 

DRVUPW 

429 

IF(  0  .GT.  5  )  GO  TO  110 

ORVUPW 

430 

I  *  0 

ORVUPW 

431 

c 

LBINT  IS  SAVED  FOR  CALL  TO  SUBROUTINE  UPWELL. 

DRVUPW 

432 

LBINT  -  LINRV  BN(NBN) 

DRVUPW 

433 

LINT  »  LINRV  BN(NBN) 

DRVUPW 

434 

107 

CALL  PREV  (  LINT,  NBI  ) 

DRVUPW 

435 

IF(  NBI  .EQ.  0  )  GO  TO  108 

DRVUPW 

436 

1*1+1 

DRVUPW 

437 

IF(  I  .GT,  10  )  GO  TO  108 

DRVUPW 

438 

WW(1)  •  0.5*(  WHI  Bl(NBI)  ♦  WLO  BI(NBI)  ) 

DRVUPW 

439 

OW(I)  *  ABS(  WHI  BI(NBI)  •  WLO  BI(NBl)  ) 

DRVUPW 

440 

c 

ALAMd)  ANO  OLAM(I)  ARE  USED  ONLY  IN  PRINTING  THE  RESULTS  SO 

DRVUPW 

441 

c 

THAT  BOTH  WAVENUMBERS  AND  WAVELENGTHS  ARE  READILY  AVAILABLE. 

DRVUPH' 

442 

ALAMd )  *  l.E+04/WW(I) 

DR  VUPW 

443 

DLAM(I)  -  ABS(  BNHI  BKNBI)  -  BNLO  BI(NBI)  ) 

DRVUPW 

444 

GO  TO  107 

DRVUPW 

445 

108 

CONTINUE 

DRVUPW 

A46 

NWAVE(J)  •  MINO(  I,  10  ) 

ORVUPW 

447 

NWAVEJ  •  NWAVE(O) 

ORVUPW 

448 

cc 

*  SET  ARGUMENT-LIST  PARAMETERS  FOR  SUBROUTINE  SETALT. 

DRVUPW 

449 

ALMAX  -  l.E+0</(  WWd)-O.S*OW(l)  ) 

ORVUPW 

450 

ALMIN  •  l.E+04/(  WW( NWAVEJ )+0.5»OW( NWAVEJ)  ) 

DRVUPW 

45] 

ALMIN  .  AMAXl  (  ALMIN,  2.0  ) 

DRVUPW 

45? 

ALMAX  •  AMINl  (  ALMAX,  5.0  ) 

ORVUPW 

453 

CALL  SETALT  (  ALMIN,  ALMAX,  J  ) 

DRVUPW 

454 

cc 

NOTE  THAT  SUBROUTINE  SETALT  OUTPUTS,  THROUGH  UPWEL5  CO^tWN, 

DRVUPW 

455 

cc 

NALT(J1  AND  ZKMdI,J). 

DRVUPW 

456 

cc 

•  NOW  READY  TO  CALL  SUBROUTINE  UPWELL. 

DRVUPW 

457 

234 


REWIND  8  .  ,  ^  ? 

CALL  UPWELL  (  HS«.  00.  WW,  DW.  SPCULR.  LBINT,  0  )  t 

CC  r 

CC  •  *  PRINT  RESULTS. 

REWIND  8  ; 

40?  ™JaI®(iSi!«x.*upwelling  radiance  results  from  program  ORVUPWVl  I 

tX,48X,33HIN  UNITS  OF  WATTS/ICM**?  SR  CM-])) 

WRITE(6,401)  J,  NWAVEJ 

4Q1  format  (1H0.SX.8HJ-JBAND  =  .I'.14H  ,, 

WRTTEf6  406)  f WW(L ) .OWlL ) .ALAM(L ) ,OLAM(L ) ,L- 1 , NWAVEJ ) 

406  FORMAT  (*0  FOR  TWE  SPECTRAL  QUANTITIES  “E  ^  , 

STHE  QUARTETS  WW(L).  OW(L),  ALAM(l),  AND  DLAMiL)  '  /(5X,1P8E1?.4)) 
write  (6.403)  M5M 

403  FORMAT  (IHO.SX , 5HMAT 13 ; 

IC  '  0 

ICC  =  0 

NALTJ  =  NALT(J) 

DO  475  11=1, NALTJ 
WfiITE(6,40R)  :kM(II.J) 

409  FORMAT  (IHO.SX.IOHALTITUOE  -.FT.P.AH  KM) 

DO  470  JJ  =  1.NNADIR 
WRITE(6,404)  JJ 

404  FORMAT  (1H0,1X,*NAD1R  7  =  *1?) 

READ(8)  (  (  UPRA0{KK.LL),KK*1.NAZ1  ).  LL=1. NWAVEJ  ) 

405  ^MAT^i4X^*N0  CL0U0SV2X .?'HAZ1MUTH  /  WAVENUMBER . ,5* ,10HUPRAD(K.L 

i)) 

ccc 

00  480  KK*1,NAZ1  ^  ^  . 

WRITE(6.407)  KK,  (  UPRAD(KK.LL).LL=1.NWA<EJ  ) 

407  FORMAT  (2X,  15  ,1P10E1?.4) 

480  CONTINUE 

IF(  (CLOFLC  .EO.  0.0)  .OR.  (ZK:4(II.J)  .LT.  12.0)  )  M  TO  470 
REA0(8)  ((  (ROIOIKK.Ll ',R0?5fKK,Ll  ; .POFOlKK.LL '.ROROIXX ,LL) , 

S  RIOOIKK.LL)).  KVl.HAZl!,  l!=1, NWAVEJ) 

605  FORMAMlHolsx.^WITW  CLOUDSV2X.21HA2IMUTU  /  WmVENUMBCR^.5X,64HARC 
iV(K.L),  ROIO'K.L).  R0?5(K.L),  ROSO'K.L),  ROROiK.L),  RlOOlK.u)) 

CCC 

IF  (  JJ  .EO.  1  )  ICC  =  ICC  *  1 
00  680  KK=1  .NAZI 

WRnE(6,6070)  t!K.(ARCVA(ICC,JJ.LL),LL=l,NWAVEJ) 

WRITE(6,6071)  KK.  (ROIOIKK.LL  )  .Lfl  .NWAVEJ) 

WRITE(6.6072)  KK,  (R025 (KK.LL ) .LI =1 .NWAVEJ 
WRITE(6.6073)  KK.  (R05C(XK.LL ) .LL=1 .NWAVEJ) 

WRITE(6,6074)  KK. 

WRITE(6,6075)  KK.  (RIOOIKK.LL ).LL*I. NWAVEJ) 

6070  FORMAT  (IX.  14  ,  6H  ARCV  .  1P10E12.4) 

6071  FORMAT  (IX,  14  ,  6H  ROIC  ,  IPIOFI?.*) 

607?  FORMAT  (IX,  14  ,  6H  R025  ,  1P10E12.4) 

6073  FORMAT  (IX,  14  ,  6H  R050  ,  lP10El?-4) 

6074  format  (IX.  14  .  6H  ROOJ  ,  1P10E12.4) 

Kn75  FORMAT  (iX.  14  .  &R  RILXl  ,  1P10EI7.4) 


WR1TE(6,6075) 

6070  FORMAT  (IX.  14 

6071  FORMAT  (IX,  14 
607?  FORMAT  (IX,  14 

6073  FORMAT  (IX,  14 

6074  format  (IX.  14 

6075  FORMAT  (iX,  14 
680  CONTINUE 

470  CONTINUE 


DRVUPW 

DRVUPW 

ORVIJPW 

DRVUPW 

DRVUPW 

DR'SJPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DPVJPW 

nnvupw 

DRVUPW 
DRVUPW 
DR VUPW 
DRVUPW 
.  DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVJPW 
DRVUPW 
DRVUPW 
DRVJPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVijPW 
C  DRVJPW 
DRVJPW 
DRVJP- 
DRVJPW 
DR  VlPW 
DRVIPW 
DRVJPW 
DRVUPW 
DRVUPW 
DRVJPW 
DRVUPW 
DRVJPW 
DRVJPW 
DRVUPW 
DRVU"W 
DRVUPW 
OB  VJPW 
DRVJPW 
DRVJPW 


WRITE(6,413) 

413  FORMAT  C1H0,1X,*A2IMUTH-AVERAGE0  ftESULTS'/3X.*N0  CLOUOSV2X,21H  H 
SAOIR  /  HAVENUMeER.,5X.13HUPRADA(t.J,l)) 

DO  465  JJ>1,HNADIR 

WRITE(6.411)  JO,  (  UPRADA(n.JO.a).LL<,HWA«J  ) 

411  FORMAT  (2X.  15  ,1P10E12.4) 

455  CONTINUE 
CCC 

IF(  (CLDFLG  .EQ.  0.0)  .OR.  (ZKH(II.J)  .LT.  12.0)  )  SO  TO  4? 5 
WRITE(6.613) 

613  FORMAT  (1H0,3X.*WITH  C1.0UDSV2X,21H  NADIR  /  WAVtMUI«ER.,5X.82HARC 
SVAd.J.L),  R010A{I,J.L).  R025A(I.J.L).  R0S0A(t,.\L).  fl090A(I.J.L). 
%  RIOOA(I.J.L)) 

1C  -  1C  +  1 
DO  665  JJ>1,NNA0IR 

WR1TE(6.6H0)  JO.  (ARCVA(1C.0J.LL).LL=1.NMAVEJ) 

WRITE(6.6H1)  00.  (R010A(1C,JO.LL).LL>1.NWAVEJ) 

WRITE(6.6H2)  OJ.  (R025A(IC.JJ,LL).LL-1.NHAVEJ) 

WRnE(6.6113)  00.  (R050A{1C.JJ.LL),LL*1.NWAVEJ) 

MR1TE(6,6U4)  0,1.  (ROOORdC.JO.LD.LL-l.NVJAVEJ) 

HfilTE(6,6H5)  00,  (R100A(IC,J0,LL).U«1.NWAVEJ) 

6110  FORMAT  (IX.  14  ,  6H  ARCVA,1P10E12.4) 

6111  FORMAT  (IX,  14  ,  6H  R010A.1P10E12.4) 

6112  FORMAT  (IX.  14  .  6H  R025A.1P10E12.4) 

6113  FORMAT  (IX,  14  .  6H  R050A,1P10E12.4) 

6114  format  (IX,  14  .  6H  R090A,1P10E12.4) 

6115  FORMAT  (IX.  14  ,  6H  R100A,1P10E12.4) 

665  CONTINUE 

475  CONTINUE 

WRITE(6.414) 

414  FORMAT  (IHO.lOX, ‘AZIMUTH-  AND  NADIR -AVER AGED  RESULTS  VS  ALTITUDE*) 
WRITE(6.415) 

415  FORMAT  (1H0,1X,»N0  CL0UDS*/2X,17HALT  /  HAVi:NL'MBER..5X,n)PRADN(  I  ,L , 
$0)*) 

00  490  INl.NALTJ 

W!ITE(6,417)  ZXM(II,J),  (  UPRADN(II.U.J),LL*1.NHAVEJ  ) 

417  FORMAT  (2X,F7.2.1P10E12.4) 

490  CONTINUE 
CCC 

IF(  CLDFLG  .EQ.  0.0  )  GO  TO  109 
1C  *  0 

MRITE(6,615) 

615  FORMAT  (1H0,1X,*WITH  CL0UDS*/2X.17HALT  /  WAVENUMBER . ,5X,*ARCVN( I .L 
i),  ROlONd.L).  ROZSNd.L),  ROSONd.L),  R090N(1,L).  R100N(I,l)*) 

DO  690  n-l,NALTJ 

1F(  ZKMdI.J)  .LT.  12.0  )  GO  TO  690 
1C  •  IC  +  1 

WRITE(6,6170)  WM(1I,0).  (  AHCVNdC.Ll).LL»l.NUAVEJ  ) 

WR1TE(6,6171)  ZKMdI.J).  (  R010NdC.LL).LL*l.NWAVEJ  ) 

HRITE(6.6172)  ZKM(n,J).  (  RO25NdC,Ll).LL-l.NWAVE0  ) 

WRITE(6.6173)  ZKM(n,J).  (  R050NdC.ll ) ,LL-1  .NNAVEJ  ) 

WRITE(6.6174)  ZKMdI.J),  (  R090H(IC.U).IL*1.NWAVEJ  ) 

W!ITE(6,6175)  ZKMdI.J),  (  R100N(IC.LL).LL-i.NUAVEJ  ) 

6170  FORMAT  (IX,  F6.2  ,  6H  ARCVN,1P10E12.4) 

6171  FORMAT  (IX,  F6.2  ,  6H  R010N.1P10E12.4) 
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6172  FORMAT 

(IX,  F6.2  ,  6H  R025H,1P10£12.4) 

ORVUPH 

572 

6173  FORMAT 

(IX.  F6.2  .  6H  R050N.1P10E12.4) 

DRVJPH 

573 

6174  FORMAT 

(IX.  F6.2  ,  6H  R090N,1P10E12.4) 

DRVUPN 

574 

617 S  FORMAT 

(IX.  F6.2  ,  6H  R100N.1P10E12.4) 

ORVUPW 

575 

690  CONTiNOE 

DRVUFii 

576 

109  GO  TO  106 

ORVUPH 

5/7 

no  CONTINUE 

ORVUPH 

578 

200  STOP 

ORVUPH 

579 

CC 

ORVUPH 

580 

300  FORMAT 

(  8E10.0  ) 

ORVUPH 

581 

301  FORMAT {L 10) 

ORVUPW 

582 

302  FORMAT 

(IHO.IX,  6HFACT  •.F6.2) 

ORVUPH 

583 

303  FORMAT 

(  IP  6E15.5  ) 

ORVUPH 

584 

304  FORMAT 

(IHO.IX.  9HTRNS0PT  -.LP) 

ORVUPH 

585 

305  FORMAT 

(IMO.IX.  THRAOSM  -.L2) 

ORVUPW 

586 

315  FORMAT 

(  3110,  3F10.0  ) 

ORVUPW 

587 

316  FORMAT 

(IHO.IX,  6HIYRS  =,I3.7X,7HIMOMS  •,I3.7X,7HI0AYS 

,I3,7X,4HZ  ORVUPH 

588 

ST  ..FS. 

.3,4X.5HGCO  -.FS.S.ax.BHGLO  •.F8.3) 

ORVUPW 

589 

317  FORMAT 

(IHO.IX,  6HKV1S  '=,!2.7X.8HKPTYPE  .,12) 

ORVUPW 

590 

318  FORMAT 

(IHO.U,  SHCLDrlG  ..F3.0) 

ORVUPW 

591 

319  FORMAT 

(IHO.IX.  8HNNADIR  «.I2.7X.6HNAZI  .,12) 

ORVUPH 

592 

320  FORMAT 

(4E10.0,  1101 

ORVUPW 

593 

321  FORMAT 

(IHO.IX,  5HKSM  .,12) 

ORVUPH 

594 

322  FORMAT 

(IHO.IX,  8HSPCULR  -.L2) 

DRVl'PU 

595 

323  FORMAT 

(IHO.IX, 5025) 

ORVUPH 

596 

END 

ORVUPH 

597 

f 


FUNCTION  ACCUM(  ITYPE,  71.  X2.  FI,  F2,  A.  B  ) 

ACCIA^ 

2 

• 

ACCUM 

3 

CLJ 

FUNCTION  ACCOM  INTEGRATES  BETWEEN  X'A  AND  X^B  A  FUNCTION  F(X) 

ACCUM 

4 

CLJ 

GIVEN  AT  TWO  POINTS  Xl  AND  X2  BY  LINEAR,  LOGARITHMIC,  OR 

ACCUM 

6 

CLO 

i^NtR-LAH  INTERPOLATION.  CORRESPONDING  TO  ITYPE.1,2.3  . 

ACCUM 

6 

CU 

RES'-ECTIYELY.  LINEAR  INTERPOLATION  IS  ASSUMED  IN  CASE  THE 

ACCUM 

■j 

CLO 

other  methods  would  fail. 

ACCUM 

8 

C 

ACCUM 

9 

GO  TO  (  1,  2,  3  ).  ITYPE 

ACCUM 

10 

1 

ACCUM  ■  .5  /  (  X2  -  XI  )  •  (  F2  »  ((  B  -  XI  )«2  .  (  A  -  XI  )**2  )  ACCUM 

11 

1  -  FI  •  ((  B  -  X2  )**2  -  (  A  -  X2  )—2  )) 

ACC'JM 

1? 

RETURN 

ACCUM 

13 

2 

IF  (  FI  *  F2  .LE.  0.  )  GO  TO  1 

ACCUM 

14 

IF  (  ABS(  1.  •  FI  /  F2  )  .LT.  0.01  1  GO  TO  1 

ACCUM 

15 

ALNR  •  ALOG(  F2  /  FI  ) 

ACCUM 

16 

ACCUM  .  FI  /  ALNR  *  (  EXP(  {  B  -  XI  )  /  (  X2  -  X]  )  •  ALNR  )  - 

ACCUM 

17 

1  EXP(  (  A  -  XI  )  /  (  X?  -  XI  )  '  LLNR  ))  •  (  X2  -  XI  ) 

ACCUM 

18 

RETURN 

ACCUM 

19 

3 

IF  (  Xl  •  X2  .LE.  0.  .OR.  FI  »  F2  .IE.  0.  )  GO  TO  1 

ACCUM 

20 

EVAL  .  AL0G(  F2  /  FI  )  7  ALOG(  X2  '  Xl  ) 

ACCUM 

21 

IF  (  AB5(  EVAL  .GT.  10.  )  GO  TO  1 

ACCUM 

2? 

ACCUM  •  FI  /  ((  EVAL  +  1.  )  *  X1«EVAL  )  •  (  B«(  EVAL  +  1.  )  - 

ACCUM 

23 

1  A**(  EVAL  ♦  1.  )  ) 

ACCUM 

24 

RETURN 

ACCUM 

25 

END 

ACCIP< 

26 
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ccc 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ccc 

CLJ 

CLJ 

cu: 

CLO 

C'.o 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

'LJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 


SLWOUTIHE  AEROSOL(  HCM,LAMOA,Xr.SCT.XKABS,6BAR  )  AERSOL 

AERSOL 

subroutine  AERSOL  COMPUTES  AHENUATION  COEFFICIENTS  FOR  AERSOL 

SCAHERING  AND  ABSORPTION  AND  THE  ASYMMETRY  FACTOR  (AVERAGE  AERSOL 

COSINE  OF  THE  SCAHERING  ANGLE)  DUE  TO  ATMOSPHERIC  AEROSOLS.  AERSOL 

THIS  PROGRAM  IS  BASED  DIRECTLY  ON  THE  WORK  OF  E.F.  SHETTLE  MO  AERSCL 

R.W.  FENN  OF  AFGL  AND  USES  A  PORTION  OF  MATERIAL  WHICH  WILL  AERSOL 

APPEAR  IN  A  FORTHCOMING  DOCUMENT  (AFGL-TR-JT-XXXX),  ‘'MODELS  OF  AERSOL 
THE  ATMOSPHERIC  AEROSOLS  AND  THEIP  OPTICAL  PROPERTIES"  BY  E.P.  AERSOL 
SHETTLE  AND  o.W.  FENN.  AERSOL 

IN  SUBROUTINE  AERSOL,  THE  WAVEl  ENGTH  REGION  IS  RESTRICTED  TO  2-5  AERSOL 

MICRONS  AND  PROPERTIES  ARE  PRESENTED  FOR  AVERAGE  SEASONAL  CONDI-  AERSOL 

TIONS  ONLY  AND  FOR  ALTITUDES  LESS  THAN  100  KM.  THE  ALTITUDE  AERSOL 

REGION  FROM  SEA  LEVEL  TO  100  KM  IS  DIVIDED  INTO  FOUR  REGIONS...  AERSOL 

A  BOUNDARY  LAYER  0-2  KM  AERSOL 

B  TROPOiiHERE  2-9  KM  AERSOL 

C  STRATOSPHERE  9-30  KM  AERSOL 

D  UPPER  ATMOSPHERE  30-100  KM  AERSOL 

IN  THE  troposphere  AND  THE  BOUNDARY  LAYER  REGION,  PROPERTIES  ARE  AERSOL 
COMPUTED  FOR  ONE  OF  FIVE  VISIBILITY  RANGES  (50.23,10,5,2  KM'  AND  AERSOL 
IN  THE  BOUNDARY  LAYER,  FOR  ONE  OF  THREE  TERRAIN  TYOES  (RURAL.  AERSOL 
URBAN,  AND  M.ARITIME).  IN  THE  STRATOSPHERE  A  CONTRIBUTION  FROM  AERSOL 

VOLCANIC  AEROSOLS  IS  ALSO  ADDED  TO  THAT  FROM  BACKGROUND  AEROSJ:.S  AiLLSo. 

THE  ABSORPTION  COEFFICIENTS  ARE  COMPUTED  AS  A  PRODUCT  OF  A  SCALE  AERSOL 
FACTOR  (EQUAL  TO  THE  AEROSOL  EXTINCTIONS  AT  0.55  MICRONS)  FOR  THE  AERSOL 
DIFFERENT  MODELS  TIMES  AnENUATION  COEFFICIENTS  FOR  THE  AERSOL 

SCATTERING,  ABSORPTION  AND  THE  ASYWRETRY  FACTOR  AS  FUNCTIONS  OF  AERSOL 

WAVELENGTH  NORMALIZED  TO  THE  EXTINCTION  COEFFICIENT  AT  0.55  AERSOL 

MICRONS.  AERSOL 

AERSOL 

AERSOL 

VERSION  1  OF  THE  VISIOYNE-SUPPLIEU  AERSOL  ROUTINE  WAS  RECEIVED  ON  AERSOL 
10/13'T7.  WE  HAVE  LEFT  GBAR,  THE  ASYWTRY  FACTOR,  IN  IhE  ARGU-  AERSDl 
KENT  list  but  HA/E  COUNTED  OUT  THE  STATEMENTS  WHICH  EVALUATE  AERSOL 
GBAR  BECAUSE  OUR  TREATMENT  OF  AEROSOL  TRANSMIHANCE  DOES  NOT  USE  AERSOL 
IT.  OUR  TREATMENT  PROVIDES  FOR  AHENUATION  BY  ABSORPTION  AND  AERSOL 

SCAHERING  OUT  OF  THE  BEAM  BUT  FOR  NO  SCATTERING  INTO  THE  BEAM.  h'RSOI 

IT  HAS  OUR  UNDERSTANDING  THAT  6.E.TFMP0  (EWING,  10/18/77)  ALSO  AERSOL 

planned  to  ACCOUNT  ONLY  FOR  SINGLE  SCATTERING  OF  AFROSOLS  (AS  AroSOl 

OPPOSED  TO  ACCOUNTING  FOR  MULTIPLE  SCATTERING  WITHIN  NUCLEAR  AERSOL 

CLOUDS).  ON  THIS  BASIS  HE  INTEGRATED  SUBROU’^INE  AERSOL  INTO  OUR  AERSOL 

UPHEILING  natural  RADIATION  MODEL  AND  INTERFACED  It  WITH  THE  GET  AERSOL 

TRANSMISSION  MODEL.  AERSOL 

AERSOL 

OUR  COPY  OF  VERSION  2  OF  AERSOL  IS  DATED  2/13/78.  WE  HAVE  UPDATED  AERSOL 
OUR  VERSION  1  WITH  THE  SUBSTAHTJVE  CHANGES  IN  VERSION  2  BUT  DID  AER50.L 

NOT  include  THE  NONSUBSTANTIVE  CHANGES  IN  SPELLINGS.  AERSOL 

AERSOL 

NOTE... HE  HAVE  ALSO  MADE  CORRECTIONS  PERTAINING  TO  THE  SEARCHING  AERSOL 

OF  THE  wavelength  ARRAY  IN  00-LOOP5  6,  7.  9.  AND  10.  AERSOL 

If  LAMDA=HAVE(12)-5.0  MICRONS  ERRONEOUS  VALUES  OF  XKSCT  AERSOL 

AND  XKABS  WOULD  BE  RETURNED  TO  THE  CAlLING  PROGRAM.  AERSOL 

AEPWL 

VERSION  3  (0e/29/7B)  PROVIDES...  AERSOL 

1.  the  altitude  in  THE  ARGUMENT  LIST  TO  BE  IN  CENtIHETFRS  AERSOL 

INSTEAD  OF  KILOMETERS.  AERSOL 

2.  THE  SCATTERING  AND  ABSORPTION  ATTiNUATlON  COEFFICIENTS  TO  BE  AERSOL 
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?R 
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NOTE. 


CIJ 
CLJ 
CLO 
ClO 
CLO 
'll 
CLO 
Cll 
til 
CLJ 
CLJ 
til 
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CIO 
CLJ 
CLO 
CLJ 
CLO 
CLJ 
CLJ 
CLJ 
CLJ 
CLO 
CLJ 
CLO 


IM  1/CW  INSTEAD  OF  1/XM. 

VERSION  4  (01/13/??)  5  0)  NONZERO  VALUES  OF  TOE 

3  A  TEST  (?.0  -LE.  LAW'  .Lt.  :>■ 

■  OUTPUT  PARAMETERS  rOMPUTEP  MODEL  FOR  ATVWSPHERIC 

•Sivrj  K  fs' 

SE!o 

input  parameters 

argument  li^^^^tooe  above  sea  level,  cm 

LAMOA  =  WAVELENGTH,  MICRONS 

I  A  CORRESPONDS  TO  VISIBILITY  RAN^E  =  5 

=  6  CORRESPONDS  TO  ' 

KTYPE  =  TERRAIN  parameter  (FOR  »^0-2  A  ) 

*  1  terrain  '  rural 

.  2  terrain  =>  I^BAN 

=  3  TERRAIN  MARITIME 

OUTPUT  PARAMETERS 

“*'"”x«CT-'sCATTERING  ATTENUATION  COmiCIEHT  I/CM 
XSABS  »  ABSORPTION  AHENUATION  COEEFICUNT.  1/C 
6BAR  -  f.ST»<ETRY  FACTOR 


VAAIA?'  ES  IN  DATA  ARRAYS 
WAVE  H  i 


ABSOBAd.Jl.- 
ABSCSDfn 
NSYMAd.O),.. 
ASYMD( ! ) 
SCATAd.O),. 
SCATOIli 
A.B.C,  AND  0 
index  1 
INDEX  J 
SCAlKI. 
SCALS(!  ) 


wavelength  ARRAt  FOR  ABSORB.  ASYM.  AND 

wS^trzfo'ixBSORPTION  ATTENUATION 
COEFFICIENTS. 

ASYWHRY  FACTORS. 


AERSOL 

59 

AERSOL 

60 

AERSOL 

61 

AERSOL 

6? 

AERSOL 
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AERSOL 

64 

AERSOL 

66 

AERSOL 

66 

AERSOL 

67 

AERSOL 

68 

AERSOL 

69 

AERSOL 

70 

AERSOL 

71 

AERSOL 

72 

AERSOL 

73 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 


74 

75 

76 

77 

78 
70 
BO 
81 
8? 

83 

84 

85 

86 

87 

88 
8? 


=  normalueo  scattering  attenuation 

COEFFICIENTS. 

SIGNIFY  altitude 

_  II  KM. 

,,  .  Normalized  scale  factor  for  altitude 

.  *5  '^PI-LOWS  .. 

I.A  boundary  layer 

TROPOSPHERE 
STRATOSPHERE.  VOLCANIC 

INDEX  I  REFERS  TO^LTnUDE^^OR  ^ 

dimension  HlTE(4I.SCALl(4,5l.WAVEa2'..SCATAH?.3'.ABS0BA  1  . 


AERSOL 

90 

AESS'.w 

RJ 

AERSOL 

9? 

AERSOL 

93 

AERSOL 

94 

AERSOL 

95 

AERSOL 

96 

AERSOL 

9' 

AERSOL 

9F 

AERSOL 

00 

A'RE'X' 

100 

AERSTL 

u: 

AERSOL 

107 

AEPSOL 

u 

AERSOL 

lew 

AE-SO. 

IDc 

AERSOL 

jOfi 

ftER9DL 

107 

AERSOL 

108 

AERSOL 

109 

AERSOL 

IP 

AERSOL 

11! 

AERTO'. 

1!? 

AERSO, 

113 

AERSi'L 

II 5 

AERSO. 

1 1  ^ 

1  SC^TB(12),MS0B8{1?).  SCATCdZ,?). 

3ABS0BC(1?.2).  SCATO(li).ABSOeO(i;). 

3  SCALZ<8.2).SCAL3(22}.SCAL4!?2).SCAL5(15^ 

CC  dihension  AsrMA(i?.4).  ASr>efi2).  asymcu?.?).  Asrtcaz) 
COf*10N/AEROti:  /  KVIS.  KRTYPE 
REAL  LAHDA 

DATA(HAVE( l).l.l,12)/2.0. 2. 25.2. D. 2. 7.3.0.3.2,3.382, 3. S. 3. 75.4. n, 4 
1. 5,5.0/ 

DATA(H17E(I).I^i,4;/a. 0.1. 0.1. 5.2.0/ 
OATA(SCAL1(I.1).I=1.4)/6.9S£-2.2.58E-2.1.81E-2.9.70E-3/ 
OATA(SCAL1(1.2).I=1.4)/1.57E-1.9.90E-2.7.92E-2.6.21£*2/ 
0ATA(SCALl(I,3).I*1.4)/3.72E.l,3.72E-1.3.72E-1.6.21£-2/ 
DATA(SCAL1(1.4).I»1.4V7.?7E-1.7.57E-1,7.57E.1,$.21E-2/ 
DATA(SCALin,5),I»1.4)/1.88.1.88,1.88,6.21E-2/ 
OATA{SCATA(I.l).I=1.12)/1.312E-1.1.14O£-1.1.016E-1.7.83St-2, 
18.330E-2.9.339E-2.9.251E-2.9.598L-2.9.394E-2.9.001E-2, 
28.0UE-2,7.672E-2/ 

!)ATA'A8SOBA(l,l),I-1.12)/2.763E-2,2.894E-2.2.932E-2.6.559E-2. 
13.696E-2.2.046E-2,1.979E-2,1.583E-2,1.357E-2.1.465£-2. 
22.2!9t-2,2.033E-2/ 

OATA(ASTMA( I, 1). 1-1,12)/. 715,. 7306.. 7459.. 7863,. 7714,. 7491,. 7456. 

1 .7316 . .  7337 . . 7390. . 7560 . . 7636/ 

DATA(SCATA(1.2).N1.12)/1.129E-1.9.833E-2.8.758E-2.7.286E-2. 
l7.2O9E-2.7.572E-2.7.3a3E-2,7.SO0E-2.7.258E-2,6.939E-2, 
16.220E-2,5.900E-2/ 

DATA(A8S0BA([.2',.!-1,12)/1.339£-1.1.240E-2.1.157E.],1.288E-1 
1.1.075E-l,9.346£-2.8,966E-2,8.610£-2.8.063E-2.7.739E-2. 
27.474E.2,6.824E-2/ 

OATA(ASYMA( I, 2), 1-1,12)/. 649, .6609, .6730, .6900,. 6937.. 6894, 

1.6907 . . 6841 . .6887 . . 6943 . . 7099. .  7193/ 
0ATA(SCATA(I.3).t»l.I2)/7.I59E-1.6.772£-!,6.O93E-l,4.399E.l, 

13.271E-1.4.594E-1.5.670£-1,5.849E-1.5.645E-1.5.289E-1. 
24.52OE-1.4.072E.1/ 

DATA{ABSOeA(I.3).l*l,12)/1.380E-2,1.062£-2.2.125E-2,9.134E.2, 
13.327E-1.2.20eE-1.8.004E-2,4.164E-2.1.718E.2,1.985E-2, 
24.247E-2.3.660E-2/ 

OATA(ASrMA(I, 3). 1*1, 12)/. 7857. .7931,. 8114,. 8611,. B205,. 7724 

1..  7448.. 7413.. 7475.. 7530.. 7630.. 7645/ 

DATA  (SCAL2(1,1), 1*1.8)  /  9.70E-3,9.25E-3,8.32E-3.7.0eE-3,5.63E-3. 
1  4.26E-3.2.39E-3.1.40E-3  / 

DATA  fSCAL2(I.2),I*l,8)  /  6.2lE-2.3.09£.2,1.53E-2.7,08E-3,5.63E.3, 
i  4.26E-3,2.:9E.3,1.40£-3  / 

DATA(SCATB(I),l«1.12)/6.76lE-2,5.005E-2.3.797E.2,2.650E-2, 

12.394E-2.2.350E-2.2.133E-2.2.174E-2,1.838E-2,1.564E-2, 

21.159E-2.8.487E-3/ 

DATA(AB 5088(1), 1*1. 12)/1.092E-Z,1.146E-2,1.157£-2. 3. 891E-2, 
11.589E-2,6.769£-3.6.48lE-3.4.826E-3.4.017E-3,4.343E-3. 
27.013E-3,6.233E-3/ 

CC  DATA(ASyMe(l). 1*1. 17)/.582e,. 5688. .5551, .5427, .5305, 

CC  1.5236,. 5166,. 5089,. 4999,. 4910.. 4739,, 4614/ 

DATA  ('CAL3'1).1*1,22)  /  1.40E-3.9.64E-4.7.57E-4.6.53E-4,5.70E-4. 

1  5.44E.4.5.19£-4.5.12E-4,5.13E-4,5.41E-4.S.37E-4,5.07E-4. 

2  4.28E-4.3.58E-4,2.71E-4.1.94£-4,1.41E-4.1.03E-4.7.87E-5. 

3  5.94E-S,4.66E-5,3.32E-5  / 

DATA  (SCAL4(i),l-l,22;  /  1 .40E-3.1.62E-3.1.9SE-3.2 .33E-3,2. 77E-3. 

1  2.89E-3,2.92E-3,2.74E-3.2.46E-3.2.10E-3.;.7U-3,1.35E-3, 
21.O9E-3.8.6OE-4,6.60E-4,S.lSE.4,4.l0€-4.3.2OE-4.?.51E-4, 


CC 

CC 


CC 

CC 


CC 

CC 


AERSOL 

116 

AER50L 

117 

AERSOL 

118 

AERSOL 

119 

AEROKO 

2 

AERSOL 

121 

AERSOL 

122 

AERSOL 

123 

AERSOL 

124 

AERSOL 

125 

AERSOL 

126 

AERSOL 

127 

AERSOL 

128 

AERSOL 

129 

AERSO. 

’30 

AERSA 

131 

AERSC. 

132 

AERSOL 

133 

AERSOL 

134 

AERSOL 

135 

AERSOL 

136 

AERSOL 

137 

AERSOL 

138 

AERSOL 

139 

AERSOL 

140 

AERSOL 

141 

AERSOL 

142 

AERSOL 

143 

AERSOL 

144 

AERSOL 

14b 

AERSOL 

146 

AERSOL 

147 

AERSOL 

148 

AERSOL 

149 

AERSOL 

IfO 

AERSOL 

151 

AERSOL 

152 

AERSOL 

153 

AERSOL 

154 

AERSOL 

155 

AERSOL 

156 

AERSOL 

157 

AERSOL 

153 

AERSOL 

159 

AERSOL 

160 

AERSOL 

161 

AERSOL 

162 

AERSOL 

163 

AERSOL 

164 

AERSOL 

165 

ARRSOL 

166 

AERSOL 

167 

AERSOL 

168 

AERSOL 

169 

AERSOL 

170 

AERSOL 

171 

AERSOL 

172 

240 


3J.10E-4.1.Z4E-4.7.60E-5/ 

AERSOL 

173 

OAm{SCATCfI.l).I'l,12)/4.0S5E-?.2.570C-2,1.560f-2,9.30eE-2. 

AERSOL 

174 

16.321E-j.6.003E-3.6.274E-3,6.232E-3.S,103E-3.4.03K)£-3. 

AERSOL 

175 

22.420E.3.1.449E-3/ 

AERSOL 

176 

0ATA(ABSO8C(I.n.I*1.12)/1.282E-3.1.574E-3.2.894£-3.4.03OE-3. 

AERSOL 

177 

15,878E-2,7.671E.2,8.300E-2,7.917E.2.6.019E-2.5.391E-2. 

AERSOL 

178 

24.S52E-2.4.132E.2/ 

AERSOL 

179 

cc 

OATA(ASrMC( I. 1),1 •1,12)/. 3223.. 2686,. 2233,. 1916,. 1580.. 1416. 

(■FTSOL 

180 

cc 

1 . 1299 .. 1 242 .. 1108. . 0983 ,. 0780 . .0629/ 

AERSOL 

iBl 

0ATA(SCATC(l,2).I=1.12)/1.353E-l,l.O2OE-l,7.792E-2.6.343E-2. 

AERSOL 

182 

15.126E.2,4.262E-2.3.761E-2,3.435E-2,2.913E-2.2.394E.2, 

AERSOL 

183 

21.775£-2.1.204E*2/ 

AERSOL 

184 

OATA[ABSOBC{I.2),l^l,12)/1.0l9£-2.8.668E-3.8.429E-3.8.424E-3. 

AERSOL 

185 

19.493E-3.9.361£-3,7.431£.3.6.537E-3.4.B79E-3.3.487£-3. 

AERSOL 

186 

23.ie6E-3,3  347£-3/ 

AERSOL 

167 

a 

OATA(ASYKC( 2). 1'1,12)/.5561, 5255.. 4958,. 4729.. 4401.. 4196,. 

AERSOL 

188 

cc 

14015 .. 3915 .. 3699 .. 3490 ,. 31 25 . .2773/ 

AERSOL 

189 

OATA(SCATO(1),I-1.12)/4.822E-1.4.160E-1.3.574£-1.3.162E-1. 

AERSOL 

190 

12.645E-1.2.367E-1.2.147E-1,2.042E-1.1.84S£-1.1.700£-1, 

AERSOL 

191 

21.509E-1.1.378£-1/ 

AERSOL 

192 

DATA(ABS0B0{n,l-l,12)/6.161E-2.7.539£-2.8.943E-2.1.0O5£-l. 

AERSOL 

193 

’1.161E-1.1.2S4E-l,1.331E-1.1.368E-l.l.435E-l,1.472E-l; 

AERSOL 

194 

21.463E-1.1.373£-1/ 

AERSOL 

19S 

cc 

DATAlASTtDd). 1-1. 12)/. 6989. .7046. .7099.. 7133.. 7159.. 7155, 

AERSOL 

196 

cc 

1 .7134. . 7116, . 7058. . 6986 , .6827 ..6687/ 

AERSOL 

197 

DATA{SCA1.5(I),I-l,15)/3.32E-5.1.65E.5.8.00E-6.4.02E-6. 

AERSOL 

198 

12.10£-6.1.09E-6.5.7flE-7.3.05E-7.1.60E-7,6.95E-8.2.90E-8. 

AERSOL 

199 

21.20E-S.5.10£-9,2.15E-9,9.30E-10/ 

AERSOL 

200 

c 

AERSOL 

201 

c 

AERSOL 

202 

c 

AERSOL 

203 

1F(  (LANDA  .SE.  2.0)  .AND.  (LAHOA  .LE.  5.0)  )  GO  TO  1000 

AERSOL 

204 

NHITE(6.900)  tAMDA 

AERSOL 

205 

900  FORMAT  (U, ‘SUBROUTINE  AERSOU  HAS  BEEN  ENTERED  WITH  lAHOA  — 1PE12.  AERSOL 

206 

J5*,  WHICH  IS  OUTSIDE  THE  ALLOWED  RANGE  (2.0  TO  5.0  MICRONS).*/* 

ZE  AERSOL 

207 

SftO-VALUES  HAVE  BEEN  ASSIGNED  TO  THE  OUTPUT  PARAMETERS  XKSCT  AND 

XK  AERSOL 

208 

SABS.*) 

AERSOL 

209 

GO  TO  11 

AERSOL 

210 

1000  CONTINUE 

AERSOL 

211 

H  •  l.OE-05  •  HCM 

AERSOL 

212 

IF(H  .LT.  0.)  STOP 

AERSOL 

213 

IF(  H.GT.100.  )  GO  TO  11 

AERSOL 

214 

IF(  H.GT.  30.  )  GO  TO  4 

AERSOL 

21S 

IF(  H.GT,  9.0  )  GO  TO  3 

AERSOL 

216 

IF(  H.GT.  2.0  )  GO  TO  2 

AERSOL 

217 

C 

AERSOL 

218 

C 

ALTITU0E=O-2  KM 

AERSOL 

219 

c 

AERSOL 

220 

1  DO  8  J»2,4 

AERSOL 

221 

IF(  H.GE.HITE(J)  )  GO  TO  8 

AERSOL 

222 

COMON-(H-HITE(J-l))/(HITE(J)-HITE{J-l)) 

AERSOL 

223 

ASCAL-SCAL1(0-1.KV1S)-(5CAL1(0-1.KVIS)-SCAL1(J,KVIS))*CO«)H 

AERSOL 

224 

GO  TO  5 

AERSOL 

225 

8  continue 

AERSOL 

226 

IF(  H.tQ.2.0  )  ASCAL  -  SCAL1(4.KV1S) 

AERSOL 

227 

5  00  6  0*2.12 

AERSOL 

228 

1F(  LAMOA.ST.WAVE(J)  )  GO  TO  6 

AERSOL 

229 

241 


COMPN  1)/(W^VH( J1-WV/E(0-1M 

ttsCT=s'sTA(>j-l,»:'>'YOEl-;sCATA'j-l,KPrypE'-$ctT*(^.i;p*ypfr,*co*n‘i 
XitABS=AsS03A;  J-l.KPTYPEK(ABSOBA(-M,KPTTPt'-AfiA6BA(  J.rPryPtM 
I'CO'CS 

CC  GB4R  =  AS'f'’Ai' J-l.AFTH'f AS’CA,  J-l.XPTYPFUASYnA' J.r.PTYP£U«COK)*( 
GO  TO  100 
6  continue 
C 

C  AlTITuOE=>.q  SK 
C 

2  lH=h.l.O 
0  =  2 

IFf  AVIS. Ed. 1  1  J  .  1 
IF(  H. ME. 9.0  1  GO  TC  1? 

A5CAL  =  SCAL?!b.Jl 
GO  TO  13 

1?  ASCAL  =  SCAL?fIH,01-(ACAL3?IN.J!-SCAL?fIH*l,Jjl*(H-«I' 

13  DO  T 

lEf  LA“OA.GT.WAVEf J1  1  GO  TO  ? 

co*ON=  r  laiada-wave;  j-1 ' )/  (  wavei  ji-have(  j-i  '  i 

XKSCT=SCATa  f  J-1 (  SCATBf  0-1  \-SCATB(  0)  1*CO*ON 
X<ASS=A8SOBo.'J.l)-(ABSOS8(J-n-ABSOB5' J1)*C0»I0N 
CC  GBAP=ASr‘«(  J-ll-fABYFBl  J-11-ASTHB(  J)1*COMON 
GO  TO  100 
T  continue 
c 

ALT1TL’0£=9-3C'  km 

c 

3  IM=H.8.0 
Hl*!«+8 

Iff  H.NE.30.  I  GO  TO  !A 
FBG  •  SCA13(?2) 
vote  '  SCAL4!22) 

GO  TO  IS 

14  FBG  =  SCAL3MH'-!SCA13!1H>-SCAl3'!h*1'I*'H.“!'. 
V0LC*SCAL4{IHU{SCAL4;iH!.SCALA!IM-1U*.’m-hm 

15  00  9  J>2,12 

IF?  LAMOA.G’.MAVEIJl  )  GO  TO  9 

COHpN  = ; L AMOA-WAVE ' J- 1 ) W  nAVE  f  J' -WAVE ' J-1 1 ' 

*<9CT1.SCA’’C(J-1,1‘-!SCAtC!  J-1.1'-SC»’'l'vM)'*COM0n 

XKSCT2=$.^ATC(  J-l,2U(StATCr,l-l.?U5CA'"C\!,3'.'»r.C»*.'N 

XKAPSl'ABSCBCf  J-1,1  1-(»PS0BC\>-1.1''A?'.09C;  J.l  '1*C0M3\ 

XKABSB'ABSOBCf  J-l,?)-!ABSOBC'J-l,2)-ABS0BC'0,211*C0*eN 

XY5CT*X>;SCTl*FBG‘XKSfT?»V0L': 

XKAES-XrAB<;i»FBG‘XKA6U?*V0LC 

C C  GBAB  1  =  ASTMC I  J- 1 , 1 '  - '  A'.Y'C  M- 1 , 1 '  -  AEYMc  i  J .  1 1 ' ‘CeWN 
CC  G8AS?=ABYM:^J-l,^^-(ASy:t;'J-l,^UA5Y^*^IJ_7  1>^(^^H 
CC  GBAB=(XKSCT1*GBAB1*XXSCT?aG5Ap?'. /IXKSC’lyXKSCT?^ 

GO  TO  105 
9  CONTINUE 
r 

C  ALTITUOE  15  GSEATEB  THAN  30  KM 
C 

A  IH=!(h.30.0)/S.01»1.01 

HI=(1H*5>+25 

1F{  H.NE.IOO.  ;  GO  TO  16 


GO  TD  14 


ASCAL  =  SCAL5(15) 

AERSOL 

7.07 

GO  TO  17 

AERjOL 

?PP. 

16 

ASCAL  =  SCAL5(lH)-(SCAL5(IHl-SCAL5!lH*l))*(H-HI)/5.0 

AERSOL 

?89 

17 

DO  10  J*2,l? 

AERSOL 

?yn 

1F{  LAMPA.GT.WAVffOl  )  GO  TO  10 

AERSOL 

?91 

CnHON=(LAraA-WAVEf J-l)l/(WAVEf J)-WAVEf J-11) 

AFRSOL 

?R? 

XK5CT*SCAT0( J-l l-fSCATOfO-l l-3CAT0f J)1*C0MPN 

AERSOL 

?95 

X<ABS=ABSOBD(J-!)-(ABSOBD!J-ll-ABSOBD(jn*CnHON 

AERSOL 

294 

CC 

GBAR  =  ASYMD ( J - 1 ) - ( ASYMD ( J  .  1 ) - ASYMD ( J ) 1 *COMON 

AERSOL 

295 

GO  TO  100 

AERSOL 

296 

IC 

CONTINUE 

AERSOL 

29  7 

100 

■;iiABS  =  XKABS*A5CAL 

AERSOL 

29P 

XICSCT=XKSCT*ASCAL 

AERSOL 

299 

GO  TO  105 

AERSOL 

300 

11 

XNABS  •  0.0 

AERSOL 

301 

XK5CT  =  0.0 

AERSOL 

302 

CC 

GEAR  =  0.0 

AERSOL 

303 

105 

XK.ABS  =  l.OE-05  *  XKABS 

AERSOL 

30A 

XKSCT  ■=  l.OE-05  •  XKSCT 

AERSOL 

305 

RETURN 

AERSOl 

306 

END 

AERSOL 

307 

SUBROUTINE  AGAGE0{HA1.GC1.GL1.A2?1,GA71,HA7.GC2,GL?) 

AGAGEO 

2 

CCC 

AGAGEO 

3 

C 

SUBROUTINE  AGAGEO  (A  MOOIEIEO  HARC  ROUTINE),  GIVEN  THE 

AGAGEO 

4 

c 

GEOGRAPHIC  COORDINATES  OF  POINE  1,  THE  AZIMUTH  AND  EARTH-CENTRAL 

AGAGEO 

5 

c 

ANGLE  OF  POINT  2  WITH  RESPECT  TO  POINT  1.  AND  THE  HEIGHT  DE 

AGAGEO 

6 

c 

POINT  2,  PROVIDES  THE  GEOGRAPHIC  COORDINATES  OF  POINT  2. 

AGAGEO 

7 

ccc 

AGAGEO 

B 

c 

INPUTS  FROM  CALL  STATEMENT 

AGAGEO 

9 

c 

HAl  =  ALTITUDE  OF  POINT  1,  CM 

AGAGEO 

10 

c 

GCl  •  COLATITUDE  OF  POINT  1,  RADIANS 

AGAGEO 

11 

c 

GLl  =  EAST  LONGITUDE  OF  POINT  1.  RADIANS 

AGAGEO 

12 

c 

AZ21  =  azimuth  angle  OF  POINT  2  RELATIVE  TO  PD'N’'  !,  RADS 

AGAGEO 

13 

c 

GA21  =  geocentric  angle  OF  POINT  ?  RELATIVE  TC  NT  1,  raD 

AGAGEO 

14 

c 

HA2  =  ALTITUDE  OP  POINT  2,  CM 

AGAGEO 

16 

c 

OUTPUTS 

AGAGEO 

16 

c 

iC2  =  colatitude  OF  POINT  ?.  RADIANS 

AGAGEO 

17 

c 

GL2  »  east  LONGITUDE  OF  POINT  2,  RADIANS 

AGAGEO 

IB 

ccc 

AGAGEO 

19 

DATA  PI, RE  /  3. 141592653590, 6. 37103E+08  / 

AGAGEO 

20 

ccc 

AGAGEO 

21 

IF(  GAZl.EO.O.O  )  GO  TO  1 00 

AGAGEO 

22 

R1  -  3E+HA1 

AGAGEO 

23 

R2  =  RE+HA2 

AGAGEO 

24 

SR12  '  SQRT{RI*R1  ♦  R2*R2  -  2.*P.1*R2*C0S(GA21 1 ) 

AGAGEO 

25 

IF(  SR12.EO.O.O  )  GO  TO  100 

AGAGEO 

26 

SINXI  =  R?*SINiGA21)/SR12 

AGAGEO 

27 

COSX!  =  (SR12**2  +  Rl**2  -  R2”21/r2.*SR12*Rl  i 

AGAGEO 

2B 

XI  =  ATAN?(  SINXI, COSXl  ) 

AGAGEO 

29 

HALFPI  =  .^1/2. 

AGAGEO 

30 

EL21  -  XI-HALFPI 

AGAGEO 

3! 

CALL  REATAN(SR12,EL21,»Z?1,XE.YN,7V) 

AGAGEO 

3? 

call  TANGE0(HA1,GC1,GL1,XE,YN.ZV,HA22,GC2.GL21 

AGAGE0 

PI 

99 

RETURN 

AGAGEO 

34 

100 

GC2  =  GCl 

AGAGEO 

pc 

GL?  =  G!  ' 

AGAGEO 

PP 

go" TO  9S 

agagE'g 

S’ 

END 

AGAGEO 

3  = 

SUBROUTINE  ATMRAD  (  LOGIC,  ISHElL,  XFRAC.  OS,  LBINT  ) 

ATMRAD 

2 

c 

ATMRAO 

3 

c 

*ATWAD*  COHPUTES  TWE  atmospheric  volume  emission  on  an  OPTICAL 

ATMRAD 

4 

c 

PATH. 

ATMRAO 

5 

c 

ATMRAD 

e 

CLO 

INPUT  PARAMETERS 

ATMRAD 

7 

CLJ 

ARGUMENT  LIST 

ATMRAO 

8 

CLJ 

LOGIC 

B 

LOGICAL  variable 

ATMRAD 

9 

CLO 

X 

•  TRUE.  OH  FIRST  ENTRY  FROM  SUBROUTINE  TRNSCO 

ATT*  AD 

10 

CLJ 

(AHO  IS  RESET  TO  .FALSE.  IN  ATMRAO). 

ATMRAD 

11 

CLJ 

S 

.FALSE.  ON  SUBSEQUENT  ENTRIES  ALONG  THE  SAME  PATH 

ATMTAO 

12 

CLJ 

ISHElL(l) 

B 

INOX(I)  IN  CALL  FROM  TRNSCO 

ATMRAO 

13 

CLJ 

ISHELL(?) 

« 

INDX(I+1)  IN  CALL  FROM  TRNSCO 

ATMRAD 

14 

CLJ 

1SHELL(3) 

- 

USED  IN  EVALUATING  THE  LOGICAL  VARIABLE  TEST. 

ATMRAD 

IS 

CLJ 

WILL  TYPICALLY  BE  EQUAL  TO  1NDX(1+?),  A  POSITIVE 

ATMRAD 

IG 

CLJ 

QUANTITY  EXCEPT  ON  THE  LAST  CALL  TO  ATMRAO  WHEN 

ATMRAD 

17 

CLJ 

THE  LAST  PATH- SEGMENT  IS  BEING  TREATED  AT  WHICH 

ATMRAD 

18 

CLO 

TIME  ISHELLO)  WILL  BECOME  EQUAL  TO  INDX(NC+1) 

ATMRAD 

19 

CLJ 

WHICH  HAD  BEEN  SET  TO  0  IN  SUBROUTINE  STEP. 

ATWAD 

20 

CLJ 

XERAC(l) 

• 

XFRACS(I)  IN  CALL  FROM  TRNSCO 

ATMRAD 

21 

CLJ 

XFRAC(2) 

• 

XFRACS(I+1)  IN  CALL  FROM  TRNSCO 

ATT*  AD 

22 

CLJ 

NOTE...  TO  UNDERSTAND  THE  VALUES  AND  USES  OF 

ATMRAD 

23 

CLJ 

XRACSd),  RECALL  THAT  THE  TOTAL  PATH  HAS  NC-1 

ATT*  AD 

24 

CLJ 

SEGMENTS  AND  NC  ENDPOINTS  OF  THESE  SEGMENTS. 

ATMRAD 

25 

CLJ 

XFRACS(I)  d'L.NC)  IS  THE  WEIISHT  ASSOCIATED  WITH 

ATT*  AD 

26 

CIJ 

THE  I-TH  ENOPOINT  APPROPRIATE  FOR  FINDING  AT  THAT 

ATMRAO 

27 

CLJ 

POINT  DIE  LINEARLY. INTERPOLATED  VALUE  OF 

ATMRAD 

28 

CLJ 

PARAMETERS  —  SUCH  AS  TEMPERATURE  AND  PRESSURE 

ATMRAD 

29 

CLJ 

(OR  EVEN  ALTITUDE)  -  WHICH  ARE  SPECIFIED  AT  THE 

ATMRAD 

30 

CLJ 

TWO  SHaL  BOUNDARIES  ADJACENT  TO  THE  1-TH 

ATMRAO 

31 

CLJ 

ENOPOINT. 

ATMRAD 

32 

CLJ 

FOP.  VERIFICATION  OF  THIS  INTERPRETATION,  SEE  THE 

ATMRAD 

33 

CLJ 

USAGE  OF  XFRACd)  AND  XFRAC(?)  IN  SUBROUTINE 

ATMRAD 

34 

CLJ 

ATMRAO  FOR  OBTAINING  ALTITUDE  AND  TEMPERATURE  AT 

ATMRAD 

35 

CLO 

FRONT  AND  BACK  OF  CELL  OS.  THE  SAME  CONCLUSION 

ATT*  AD 

36 

CLJ 

MAY  BE  DRAWN  FROM  THE  USAGE  OF  XERACS(l)  AND 

ATMRAD 

37 

CLO 

XFRACS(2)  IN  SUBROUTINE  PATH. 

ATT*  AD 

38 

CLJ 

CONSIDER  A  HYPOTHETICAL  EXAMPLE  WITH  HSHaLd)'0., 

ATMRAD 

39 

CLJ 

l.,?.,3.  FOR  I-1.2,3,«  AND  45-DEGREE  PATH  FROM 

ATT*  AD 

40 

CLO 

ALTITUDE  1.9  TO  2.9  KM.  THEN  HC*3  AND  WE  HAVE  THE 

ATMRAD 

41 

CLJ 

FOLLOWING  VALUES  FOR  THE  ARRAYS. 

ATT*  AD 

42 

CLJ 

I  DSd)  XFRACS(I)  INOEXCD 

ATMRAD 

43 

CLJ 

.  .......  ... - ....  ....... 

ATMRAD 

44 

CLJ 

1  0.0  0.1  2 

ATMRAD 

45 

CLJ 

2  0.1414  1.0  3 

ATT*  AD 

46 

CLJ 

3  1.2728  0.9  4 

ATMRAD 

47 

CLJ 

4  -1.0  0 

ATI*  AD 

48 

CLJ 

ATMRAD 

49 

CLJ 

OS 

■ 

DSd+l)  IN  CALL  FROM  TRNSCO 

ATT*  AO 

50 

CLJ 

NOTE...  IT  IS  ALWAYS  TRUE  THAT  DS(1)*0  AND 

ATMRAD 

51 

CLJ 

DS(NC*1)--1.,  WHERE  NC  IS  THE  HUMBER  OF  PATH 

ATT*  AD 

52 

CLJ 

SEGMENTS  PLUS  ONt.  ATMRM)  WILL  HOT  BE  CALLED 

ATMRAD 

53 

CLJ 

WITH  I-HC.  (CM) 

ATT*  AD 

5>4 

CLJ 

LBINT 

■ 

WORD  NO.  5  IN  GRC'S  DATASET-BH  (NO.  114). 

ATMRAD 

55 

CLJ 

STRICTLY.  LBINT  IS  THE  POINTER  (I.E..  CONTAINS  THE 

ATT*  AC 

56 

CLJ 

(O-ARRAY)  ADORESSl  FOR  THE  LIST  HEADER  OF  THE 

ATMRAD 

57 

CLJ 

BAND- INTERVAL  0AT,.SETS-B1  CORRESPONDING  TO 

ATMRAD 

58 

244 


CLJ 

DATASn-BN. 

ATWAD 

59 

CLJ 

HYZCOH  COMMON 

ATMRAD 

60 

CLO 

FACT  •  PATH  RESOLUTION  FACTOR  CONTROLLING  THE  NUMBER  OF 

ATT*  AD 

61 

CLJ 

ALTITUDES  AND  SPACING  USED  IN  SUBROUTINE  SHaLS. 

ATMRAD 

62 

CLO 

SET  IN  DRIVER  PROGRAM.  HERE  IN  SUBROUTINE  ATMRAO, 

ATMRAD 

63 

CLO 

FACT  IS  USED  TO  SET  TOL.  WHICH  IS  USED  TO  TEST 

ATMRAD 

64 

CLJ 

TEMPERATURE  DIFFERENCES  ACROSS  CELLS. 

ATMRAD 

65 

CLO 

HSHaL(J)  -  ALTITUDE  BOUNDARY.  CM  (0*1, NS)  (HSHaL(l)-O.) 

ATMRAD 

66 

CLJ 

TS(jj  •  TEMPERATURE  AT  ALTITUDE  BOUNDARY  J,  DEG  K 

ATMRAD 

67 

CLJ 

Ud.N.Z)  *  CUMULATIVE  VALUE  OF  PATH  PARAMETER  U  (AREAL 

ATMRAD 

68 

CLJ 

density)  for  temperature- index  1  AND  SPECIES  N  AT 

ATMRAD 

69 

CLJ 

END  OF  LINE  SEGMENT  DS,  CM  AT  STP 

ATMRAD 

70 

CLJ 

UP(I,N,2)  •  CUMULATIVE  VALUE  OF  PATH  PARAMETER  UP  (PRODUCT  OF 

ATI*  AD 

71 

CLJ 

U  AND  PRESSURE  P)  FOR  TEMPERATURE- INDEX  I  AND 

ATMRAD 

72 

CLO 

SPECIES  N  AT  END  OF  LINE  SEGMENT  DS,  ATM-CM 

ATMRAD 

73 

CLJ 

AT  STP  FOR  U  AND  UP  (1*1,2  ,  N*l,10) 

ATMRAD 

74 

CLJ 

IflOLS  *  NUMBER  CF  SPECIES.  SET  IN  DRiVER. 

Am  AD 

75 

CLJ 

LTMTE  •  BINARY  FILE  CONTAINING  THE  BAND-MODEL  PARAMETERS 

ATMRAD 

76 

CLJ 

WHICH  WERE  derived  IN  SUBROUTINE  TRANSB  FROM  THE 

ATMRAD 

77 

CLJ 

BASIC  5-(l/CM)-RESOLUT10N  DATA.  HERE  IN 

ATMRAD 

78 

CLJ 

subroutine  ATWAO.  file  LTMTE  IS  REWOUND  FOR  USE 

ATT*  AD 

79 

CLJ 

IN  SUBROUTINE  TRANS. 

ATMRAD 

BO 

CLJ 

OPTION  ctmiN 

ATMRAD 

81 

CLJ 

TRNSOPT  -  LOGICAL  VARIABLE  AFFECTING  COMPLEXITY  OF  MOLECULAR 

ATMRAD 

82 

CLJ 

TRANSMITTANCE  CALCULATION  (SEE  SUBROUTINES  TRANSB 

ATMRAD 

83 

CLJ 

AND  TRANS).  IN  SUBROUTINE  ATMRAO,  TRNSOPT  IS  USED 

ATMRAD 

84 

CLJ 

ONLY  IN  THE  ARGUMENT  LIST  FOR  THE  CALL  TO 

ATT*  AD 

85 

CLJ 

SUBROUTINE  TRANS. 

ATMRAD 

86 

CLO 

DATASET  B1  (BAND- INTERVAL  DATASET,  NO.  115) 

ATMRAD 

87 

CLJ 

0(1)  •  8NL0  BI  •  LOW  WAVELENGTH  FOR  WAVELENGTH-BAND- INDEX 

ATMRAD 

88 

CLJ 

J.  MICRONS 

ATT*  AD 

89 

CLJ 

0(2)  *  BNHI  Bl  *  HIGH  WAVELENGTH  FOR  WAVELENGTH- BAND- 

ATMRAO 

90 

CLJ 

INDEX  J,  MICRONS 

ATMRAD 

91 

CLJ 

0(3)  •  WLO  BI  •  LOW  WAVENUMBER  FOR  WAVELENGTH-BAND- INDEX 

ATMRAD 

92 

CLJ 

J,  CH-1 

ATT*  AD 

93 

CLJ 

0(4)  «  WHl  BI  •  HIGH  WAVENUMBER  FOR  WAVELENGTH-BAND- 

ATMRAD 

94 

CLJ 

INDEX  J,  CM-1 

ATT*  AD 

96 

CLJ 

OUTPUT  PARAMETERS 

ATMRAD 

96 

CLJ 

DATASET  BI 

ATT*  AD 

97 

CLJ 

0(6)  •  BKGNO  BI  •  IN-BAND  RADIANCE  TO  BACK  OF  CELL  DS, 

ATMRAD 

98 

CLJ 

HAnS/(CM»*2  SR  BAND) 

ATT*  AD 

99 

CLJ 

0(7)  •  TRANS  81  -  PRODUCT  OF  MOLECULAR  AND  AEROSOL 

ATMRAD 

IDO 

CLO 

transmittance  TO  BACK  OF  CELL  OS 

ATT*  AD 

lOi 

CLJ 

0(8)  •  IDSBX  Bl  •  CUMULATIVE  AEROSOL  TRANSMITTANCE  TO 

ATMRAD 

102 

CLJ 

BACK  OF  CELL  DS 

ATT*  AD 

103 

CLJ 

NOTE  «•  THIS  IS  THE  SECOND  OF  TWO  TEMPORARY  USES  OF 

ATMRAD 

104 

CLJ 

*•*  WORD-a  (AND  NOT  THE  GRC  DICTIONARY  USE  OF 

ATMRAD 

105 

CLJ 

WORD-B).  HERE.  IT  IS  USED  TO  CARRY 

ATMRAD 

106 

CLJ 

**•  INFORMATION  TO  SUBROUTINE  UPWELL. 

ATT*  AD 

107 

CLJ 

ATMRAD 

108 

CLJ 

WE  ALSO  NOTE,  FOR  COMPLETENESS  OF  DATASET  Bl, 

ATT*  AO 

109 

CLJ 

0(6)  •  TFLAG  BI  -  SEE  SUBROUTINE  TRANSB  FOR  DEFINITION. 

ATMRAD 

no 

CLO 

ATT*  AD 

111 

COMMON  ONABEA,  OWAREA(IO),  OFREHD,  ONDTST,  ONLNKS,  OZ5I7E. 

ATMRAD 

112 

1  ONZBLK,  OZHEAD,  0COUNT(3O),  OOSIZE(IO),  ONSIZE,  OLUNIT(IO). 

ATT*  AD 

113 

2  OERLUN,  OFBITS{2,10),  0(1) 

ATMRAD 

114 

COFWON  /  XYZCOM  /  ITMTE,  LTMTE.  NS.  H5HELL(81),  TS(81),  PS(8]). 

ATT*  AD 

115 

245 


1  XNSPEC(8I,10).  UflO.lO,?).  UPdO.lO,?).  tWOLS, 

2  FACT 
COMMON  /  OPTION  /  TRNSOPT 

DIMENSION  lAU(lO),  ABC(IO),  1SHFII(3).  XFftAC(2) 

DIMENSION  BNLO  61(1),  BNHI  BI(1),  WLO  Bl(l).  WH!  Bid). 

*  BICGND  BI(l).  TFLAG  BI(1).  TRANS  BI(1).  IDSB*  BI(1) 

DIMENSION  TDSl  BX(1),  DELTS  BX(1),  ABCLO  BX(1).  UVRB  BX{1), 

•  XKABS  BX(1) 


equivalence  (  Qd).  BNLO 
‘  (  0(3).  ULO 


BI  ).  (  0(2),  BNHI  B1  ), 
B1  ),  (  0(<),  MHI  BI  ), 

(  0(5),  8KGND  BI  ).  (  0(6),  TFLAG  BI  ), 

*  (  0(7),  TRANS  BI  ),  (  0(8),  IDSBX  BI  ) 

EQUIVALENCE  (  Q(l).  TOST  BX  ),  (  0(2).  BELTS  BX  ), 

(  0(3),  ABCLO  BX  ).  (  Q(A),  UVRB  BX  ). 


ATM!  AD 
AIMRAO 
ATMRAO 
ATMRAD 
ATMRAD 
ATMRAD 
ATMRAD 
ATMRAD 
ATM!  AD 
ATMRAD 
ATMRAD 
ATMRAD 
ATMRAD 
ATMRAD 
ATM  AD 


116 

117 

TIB 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 


(  0(5),  XKABS  BX  ) 

ATMRAD 

131 

CLJ 

ATMRAD 

132 

CLJ 

OATASET-BX  USED  HERE  IN  SUBROUTINE  ATMRAD  IS  A  TEMPORARY 

ATMRAD 

133 

CLJ 

FIVE-WORD  DATASET  WHICH  SHOULD  NOT  BE  CONFUSED  WITH  THE 

ATM  AD 

134 

CLJ 

fifteen-word  DATASET-BX  (NO.  118)  USED  IN  THE  GRC  DICTIONARY 

ATMRAD 

135 

CLJ 

OF  DATASETS. 

ATM  AD 

136 

CLJ 

DATASET-BX  PROVIDES  VARIOUS  PROPERTIES  AT  THE  FRONT  OF  THE 

ATMRAO 

137 

CLJ 

CURRENT  CELL  DS. 

ATM  AD 

138 

CLJ 

0(1)  •  TOST  BX  •  CUMULATIVE  AEROSOL  TRANSMITTANCE  TO 

ATMRAD 

139 

CLJ 

FRONT  OF  CURRENT  CELL 

ATM  AD 

140 

Cl  J 

0(2)  •  OELTSBX  =  length  OF  LAST  CELL  (OR  CELLS)  IE  IT  (OR 

ATMRAO 

141 

CLJ 

THEY)  HAS  (OR  HERE)  SKIPPED  OVER  BECAUSE 

ATM  AT) 

14? 

CLJ 

TEST  =  .TRUE.  .  CM 

ATMRAD 

143 

CLJ 

0(3)  »  ABCL08X  OPTICAL  DEPTH  AT  FRONT  OF  CURRENT  CELL, 

ATMRAD 

144 

CLJ 

DIMENSIONLESS 

ATMRAD 

146 

CLJ 

0(4)  =  UVRB  BX  =  MOLECULAR  ABSORPTION  COEFFICIENT  AT 

ATM  AD 

146 

CLJ 

FRONT  OF  CURRENT  CELL  DS,  1/CM 

ATMRAD 

147 

CLJ 

0(5)  •  XKA8S6X  »  AEROSOL  ABSORPTION  COEFFICIENT,  1/CM 

ATM  AD 

148 

C 

ATMRAD 

149 

LOGICAL  TRNSOPT.  LOGIC.  TEST 

ATM  .AD 

150 

C 

ATM.RAD 

151 

LI 

=  ISHELL(l) 

ATMRAD 

152 

L2 

■  ISHELL(2) 

ATMRAD 

153 

CLJ 

HSF.HSB  AND  TFRONT, TBACK  ARE.  RESPECTI VELY,  THE  ALTITUDES 

ATMRAD 

154 

CLJ 

AND  TEMPERATURES  AT  THE  FRONT  AND  BACK  OF  THE  CURRENT  CELL  DS 

ATMRAD 

155 

CLJ 

CORRESPONDING  TO  0S(  HI),  CM  AND  OEG  K 

atm.a:., 

156 

IF 

LOGIC  )  HSF  •  XFRAC(l)  •  HSHaKLl)  ♦  (  1.  -  XFRAC(l)  )  • 

ATMRAD 

157 

i 

HSHELL(L2) 

ATM  AD 

158 

MSB 

«  XFRAC(2)  •  HSHaL(L2)  +  (  1.  -  XFRAC(2)  )  *  HSHaL(Ll) 

ATMRAD 

159 

IF 

(  LOGIC  )  TFRONT  •  XFRAC(l)  »  TS(Ll)  +  (  1.  -  XFRAC(l)  )  • 

ATMRAO 

160 

i 

TS(L2) 

ATM  RAD 

161 

TBACK  -  XFRACl?)  *  TS(L?)  ♦  (  1.  -  XRAC(2)  )  •  TS(L1I 

ATM  AD 

16? 

CLJ 

SET  FILE  POSITION  FIlPOS  FOR  USE  IN  SUBROUTINE  TRANS. 

ATMRAD 

163 

FILPOS  »  1.E4 

ATM  AD 

164 

CLJ 

TESY  -  .TRUE.  PROVIDED  THE  TEMPERATURE  CHANGE  ACROSS  A  CELL  IS 

ATMRAD 

165 

CLJ 

LESS  THAN  ONE  PERCENT  (FOR  THE  STANDARD  ATMOSPHERIC  SHELL 

ATM  AD 

166 

CLJ 

SPACING  SET  BY  FACT*1)  AND  PROVIDED  IT  IS  NEITHER  THE  FIRST 

ATMRAD 

167 

CLJ 

HOR  LAST  call  TO  ATMRAD. 

ATM  AD 

16? 

CLJ 

***  note  GRC  (IN  PROGRAM  ATKGEN)  SETS  FACT  TO  10.0  IF 

ATMRAD 

16ti 

CLJ 

TRNSOPT  •  .TRUE. 

ATM  AD 

170 

TOL 

-  0.01  «  SORT(  FACT  ) 

ATMRAD 

171 

TEST  »  AB5(  TFRONT  -  TBACX  )/  TFRONT  .LT.  TOL  .AND. 

ATM  AD 

17? 

24b 


CLJ 


CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 


CLJ 

CLJ 

CLJ 

CLJ 


CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 


CLJ 

CLJ 

CLJ 


C 

C 

CLJ 

CLJ 


CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 


i 

ISHELLO)  .GT.  0  .AND.  .HOT.  LOGIC 

ATWRAD 

LOOP  OVER  SPECTRAL  BANC- INTERVALS  IN  INCREASING  WAVENUMBERS. 

ATMRAD 

174 

LINT  -  LBINT 

ATIRAD 

175 

CALL  PREV  (  LINT,  J  ) 

ATMRAD 

176 

IF 

(  J  .EQ.  0  )  GO  TO  10 

ATTRAO 

177 

CREATE  A  5*W0RD  DATASET  WITH  INDEX  JJ.  (IN  OTHER  WORDS,  JJ  IS 

ATMRAD 

178 

THE  ADDRESS  OF  THE  FIRST  OF  THE  FIVE  WORDS.) 

AURAD 

179 

IF 

(  LOGIC  )  CALL  CREATL  (  5,  JJ  ) 

ATMRAD 

180 

CALL  TO  DSPWRO  RETURNS  ADDRESS.  IDSBX  BI(J)  (WHICH  IS  STORED 

ATMRAD 

181 

AS  WORD-B  OF  DATASET-BI),  OF  DSP  WORD  FOR  THE  DATASET-BX  WHOSE 

ATMRAO 

18? 

FIRST-WORD  ADDRESS  IS  JJ  (ALL  FW  EACH  J).  (IN  OTHER  WORDS, 

ATNRAD 

183 

IDSBX  B!(J)  IS  the  POINTER  TO  THE  DSP  WORD  FOR  THE  DATASET-BX. 

ATMRAD 

184 

)  THIS  IS  THE  FIRST  OF  TWO  TEMPORARY  USES  IN  THIS  ROUTINE  OF 

ATTRAD 

185 

MORD-8  OF  DATASET-81.  HERE  IT  IS  USED  AS  A  POINTER  TO  THE  DSP 

ATMRAD 

186 

WORD  FOR  THE  TEMPORARY  DATASET-BX. 

ATMRAO 

187 

IF 

(  LOGIC  )  call  OSPWRD  (  JJ,  IDSBX  BI(J)  ) 

ATMRPD 

188 

IF 

(  LOGIC  )  TRANS  BI(J)  =  1. 

ATMRAD 

189 

IF 

(  LOGIC  )  BY'ND  SI(J)  =  0. 

ATMRAD 

190 

IF 

(  LOGIC  )  TOST  BX(JJ)  =  1. 

ATTRAD 

191 

IF 

(  LOGIC  )  ABCLD  BX(JJ)  *  0. 

ATMRAD 

19? 

CALL  TO  INOWRD  RETURNS  IN  JJ  THE  INDEX  (FIRST-WORD  ADDRESS) 

ATTRAD 

193 

FOR  THE  DATASET-BX  FOR  WHICH  THE  POINTER  TO  ITS  DSP  WORD 

ATMRAO 

194 

(ZEROTH-WORO  ADDRESS)  IS  STORED  IN  IDSBX  B!(J)  (WORD-8  OF 

ATTRAD 

l'<5 

OATaSET-BI). 

ATMRAD 

196 

IF 

(  .NOT.  LOGIC  )  CALL  INOWRD  (  IDSBX  81 (J),  JJ  ) 

ATTRAD 

197 

WDL 

•  WLO  BI(JI 

ATMRAD 

198 

HDH 

»  WHI  B1(J) 

ATTRAD 

199 

W  ■ 

.5  •  (  WOL  ♦  WDH  ) 

ATMRAD 

?00 

SET  MEAN  WAVENUMBER  W  FOR  CALLING  PLANCK  AND  MEAN  WAVELENGTH 

ATMRAD 

?01 

WAVEL  FOR  CAl'TNG  AEROSOL. 

ATMRAD 

?0? 

WAVEL  •  I.E4/W 

ATMRAD 

?03 

DELTSBX(JJ)  WILL  NORHALLV  EQUAL  DS  BECAUSE  THE  OLD  0ELT5BX(JJ) 

ATMRAD 

?04 

WAS  initially  zeroed  BY  THE  DSA  SYSTEM  AND  SUBSEQUENTLY  ZEROED 

ATTRAD 

?05 

AT  THE  END  OF  EACH  PASS  THROUGH  ATMRAO,  EXCEPT  WHEN 

ATMRA.D 

?06 

TEST  =  .TRUE. 

ATTRAO 

?07 

CELTS  8X(JJ)  •  CELTS  B*(JJ)  +  CS 

ATMRAO 

?0P 

IF 

(  LOGIC  )  CALL  AEROSOL!  HSF.WAVEL.XKSCA.XKABS  BX(JJ),GBAR  ) 

ATTRAO 

?n9 

CALL  aerosol!  HSB.WAVEL.XKSCA.XKABS.GBAR  ) 

ATMRAD 

?10 

XKEXT  IS  THE  AEROSOL  EXTINCTION  COEFFICIENT  (I/CM)  AT  BACK  OF 

Aymoao 

?1! 

CURRENT  CELL  AND  TOST  IS  THE  AEROSOL  TRANSMITTANCE  TO  THE  BACK 

ATMRAD 

?1? 

OF  CURRENT  CELL 

ATMPAD 

?13 

XKEXT  «  XKSCA  +  XKA8S 

ATMRAD 

?1S 

TOST  -  EXP(  -XKEXT  •  os  )  *  TOST  BXf JJ1 

AT»RAD 

COMPUTE  INCREMENTAL  RADIANCE  WHEN  TEMPERATURE 

ATMRAD 

?16 

CHFNGE  is  more  than  one  percent  at  STANDARD  PATH  RESOLUTION 

ATTRAD 

?;7 

IF 

(  TFST  )  GO  TO  S 

ATMRAD 

?1B 

NOTE  THAT  SUBROUTINE  TRANS  RECEIVES  THE  ARRAYS  U(I.N,?)  AND 

ATMPAD 

?19 

UPfl.N,?)  AS  Ud.N.U  AND  UP(I.N.l). 

ATMRAD 

??0 

CALL  TRANS  (  10,  1.  iKl.l.?),  UP(1.1.?1.  X],  WDL.  WDH.  TAU.  ABC, 

ATtRAP 

??; 

i 

TNEW,  TRNSOPT.  FIlPOS  ) 

ATMRAD 

??? 

NOW  HAVE... 

ATMIAD 

???■ 

ABC  >  optical-depth  PRRAY  TO  BACK  OF  CURRENT  CELL  FOR 

ATMRAD 

??4 

SPECI  ES  N=1 ,10 

ATM!  AD 

??F 

TNEW  =  MOLECIIIAR  TRANSMITTANCE  TO  BACK  OF  CURRENT  CELL 

ATMR  AO 

??6 

TAU  •  MOLECULAR  TRANSMITTANCE  ARRAY  TO  RACK  OF  CURRENT 

ATTRAO 

??! 

CELL  FOR  SPECIES  N^I.IO  (UNUSED  HERE' 

ATMRAD 

??R 

RESET  TNEW  TO  BE  THE  PRODUCT  OE  THE  MOLECULAR  AND  AEROSOL 

ATTRAD 

??P 

2i' 


CLJ 

THANSMITTANCE  TO  BACK  OF  CURRENT  CELL  (DS) 

ATMRAD 

230 

TNEW  •  TNEH  *  TOST 

ATMRAD 

231 

ABCNEW  •  0. 

ATMRAD 

232 

CLJ 

COMPUTE  OPTICAL  DEPTH  FOR  ALL  SPECIES.  ABCNEH,  TO  BACK  OF 

ATMRAD 

233 

CLJ 

CELL  OS. 

ATWAD 

23A 

00  3  N-l.KMOLS 

ATMRAD 

23b 

3  ABCNEU  >  ABCNEH  *  ABC(N) 

ATMRAO 

236 

ABCNEH  >  AMAXK  ABCNEH.  ABCLD  BX(JJ)  ) 

ATMRAD 

237 

C 

ACCUMULATE  SPECTRAL  RADIANCE  AND  TRANSMISSION  ARRAYS 

ATMRAD 

238 

CLJ 

UVRB  •  MOLECULAR  ABSORPTION  COEFFICIENT.  1/CM  (NORMALLY 

ATMRAD 

239 

CLJ 

FOR  CELL  OS) 

ATM!  AD 

240 

UVRB  -  (  ABCNEH  -  ABCLO  BX(JJ)  )  /  OaTS  6X(J0) 

ATMRAD 

2«1 

IF  (  LOGIC  )  UVRB  BX(JJ)  -  UVRB 

ATM!  AD 

242 

BBODYF  -  PLANCK(  TFRONT,  H  ) 

ATMRAO 

243 

B80DYB  •  PLANCK(  TBACK,  U  ) 

ATMRAD 

244 

CLJ 

COMPUTE  IN-BAND  RADIANCE  TO  BACK  OF  caL  OS  BY  AVERAGING  OVER 

ATMRAO 

245 

CLJ 

PATH  SEGMENT  DS  HITH  LOGARITHMIC  INTERPOLATION.  THIS  STEP  IS 

ATM!  AD 

246 

CLJ 

VERY  IMPORTANT.  THE  FACTOR  (HOH-HOL)  CONVERTS  FROM  SPECTRAL 

ATMRAO 

247 

CLJ 

TO  IN-BAND  RADIANCE. 

ATM!  AD 

248 

BKGND  B1(J)  •  BKGND  BI(J)  ♦  ACCUM(  2.  0..  DS.  (  UVRB  BX(JJ)  + 

ATMRAD 

249 

S  XKABS  BX(aJ)  )*BBOOYF*TRANS  BUJ).  (  UVRB  +  XKABS  )* 

ATMRAD 

250 

i  B80DYB*TNEH.  0.,  OS  )  *  (  HOH  -  HOL  ) 

ATMRAD 

251 

CLJ 

SET  VALUE  OF  MOLECULAR  AND  AEROSOL  TRANSMITTANCE  TO  FRONT  OF 

ATM!  AO 

252 

CLJ 

NEXT  CaL  FOR  NEXT  CALL  TO  ATTMRAD. 

ATMRAD 

253 

TRANS  BI(J)  •  TNEH 

ATMRAD 

254 

CLJ 

THE  FOLLOHING  TEST  IS  FOR  THE  LAST  CELL.  THE  CALL  TO  DSTROY 

ATMRAD 

255 

CLJ 

REMOVES  DATASET-BX  AND  ITS  DSP  HOfiO.  (THE  INDEX  JO  AND  THE 

ATM!  AD 

256 

CLJ 

DSP  HORD  FOR  OATASET-BX  ARE  SET  TO  ZERO.  THE  SIX  HORDS  USED 

ATMRAD 

257 

CLJ 

BY  DATASET-BX  ARE  REGARDED  AS  FREE  BY  THE  SYSTEM.  THOUGH  THEY 

ATM!  AD 

258 

CLJ 

HAVE  NOT  YET  BEEN  ZEROED.)  INVOKE  SECOND  TEMPORARY  USE  OF 

ATMRAO 

259 

CLJ 

HORO-8  OF  OATASET-BI  BY  SEHING  IT  EQUAL  TO  TOST. 

ATI!  AD 

260 

IF  (  ISHaL(3)  .EO.  0  )  CALL  OSTROY  (  JJ  ) 

ATMRAD 

261 

IF  (ISHELL(3)  .EQ.  0  )  CALL  XMIT(l,TOST.I0SBX  BI(J)) 

ATM!  AD 

262 

IF  (ISHaL(3)  .EQ.  0  )  GO  TO  2 

ATMRAD 

263 

CLJ 

ZERO  THE  PATH- SEGMENT  LENGTH,  WHICH  IS  ALWAYS  DONE  UNLESS 

AIM!  AD 

264 

CLJ 

TEST  •  .TRUE.  ALSO.  SET  PROPERTIES  AT  FRONT  OF  NEXT  CELL 

ATMRAD 

265 

CLJ 

FOR  NEXT  CALL  TO  ATMRAO... 

ATM!  AD 

266 

CLJ 

ABCLD  BX(JJ)  -  OPTICAL  DEPTH 

ATMRAD 

267 

CLJ 

XKABS  BX(JJ)  «  AEROSOL  ABSORPTION  COEFFICIENT 

ATMRAD 

268 

CLJ 

UVRB  BX(JJ)  •  MOLECULAR  ABSORPTION  COEFFICIENT 

ATMRAD 

269 

CLJ 

TOST  BX(JJ)  -  AEROSOL  TRANSMITTANCE 

ATM!  AD 

270 

OaTS  BX(JJ)  •  0. 

ATMRAD 

271 

ABCLO  BX(JJ)  -  ABCNEU 

ATM!  AO 

272 

XKABS  BX(JJ)  •  XKABS 

ATMRAO 

273 

UVRB  8X(JJ)  ■  UVRB 

ATMRAD 

274 

5  TOST  BX(JJ)  •  TOST 

ATMRAD 

275 

GO  TO  2 

ATM!  AT 

276 

C 

ATMRAD 

277 

10  IF  (  TEST  )  GO  TO  11 

ATM!  AD 

278 

REWIND  LTMTE 

ATMRAD 

2/9 

HSF  ■  MSB 

ATMRAD 

280 

TFRONT  .  TBACK 

ATMRAD 

281 

11  LOGIC  ■  .FALSE. 

ATM!  AD 

28? 

RETURN 

ATMRAD 

283 

END 

ATM!  AD 

284 

Z48 


FUNCTION  C«(GLE(P1LAT.P1L0N.P2LAT,PZL0N) 

CANGLE 

2 

ccc 

CANGLE 

3 

c 

FUNCTION  CANGLE  COMPUTES  THE  EARTH-CENIKAL  ANGLE,  CANGLE, 

CANGLE 

4 

c 

BETWEEN  THE  TWO  CENTRAL  RAYS  TO  POINTS  PI  AND  P2,  GIVEN  THE 

CANGLE 

5 

c 

LATITUDE  AND  LONGITUDES  OF  POINTS  PI  AND  P3. 

CANGLE 

6 

ccc 

CANGLE 

7 

c 

INPUT  PARAMETERS 

CANGLE 

8 

c 

ARGUMENT  LIST 

CANGLE 

9 

c 

PILAT  -  NORTH  LATITUDE  OF  POINT  PI.  RADIANS 

CANGLE 

10 

c 

PILON  -  EAST  LONGITUDE  OF  POINT  PI,  RADIANS 

CANGLE 

11 

c 

P2LAT  -  NORTH  LATITUDE  OF  POINT  P2,  RADIANS 

CANaE 

12 

r 

PELON  -  EAST  LONGITUDE  OF  POINT  P2.  RADIANS 

CANGLE 

13 

C 

OUTPUT  PARAMETER 

CANaE 

14 

c 

CANGLE  -  earth-central  ANGLE  BETWEEN  RAYS  TO  POINTS 

CANGLE 

15 

c 

PI  AND  P2 

CANGLE 

16 

ccc 

CANGLE 

17 

c 

CONSIDER  THE  SPHERICAL  TRIANGLE  P1-N-P2.  WHERE  N  IS  AT 

CANGLE 

18 

c 

THE  NORTH  POLE. 

CANGLE 

19 

ccc 

CANaE 

20 

SINSIN  -  S1N(P1LAT)*SIN(P2LAT) 

CANGLE 

21 

COSCOS  -  C0S(P1LAT)*C0S(P2LAT) 

CANGLE 

22 

ALPHAC  •  ACOS(  SINSIN  ♦  COSCOS»COS(P2LOM-PlLON)  ) 

CANGLE 

23 

CANGLE  >  ALPHAC 

CANaE 

24 

RETURN 

CANGLE 

25 

END 

CANaE 

26 

FUNCTION  DOT  (  x;  Y  ) 

DOT 

2 

C 

DOT 

3 

C 

♦DOT*  FORMS  THE  DOT  PRODUCT  OF  TWO  VECTORS. 

DOT 

4 

c 

DOT 

5 

DIMENSION  X(3),  V(3) 

DOT 

6 

DOT  -  X(l)  *  Y(l)  ♦  X(2)  *  Y(2)  ♦  X(3)  •  Y(3) 

DOT 

7 

RETURN 

DOT 

8 

END 

DOT 

9 

FUNCTION  ERF(X) 

ERFF 

2 

C 

ERF  IS  THE  ERROR  FUNCTION,  BASED  ON  THE  RATIONAL-APPROXIMATION 

ERFF 

3 

C 

FORMULA  7. 1.2. 6  IN  THE  MBS  APPLIED  HATH.  SERIES  NO.  55  (BUT 

ERFF 

4 

C 

WITH  CONSTANTS  REDUCED  TO  SEVEN  DIGITS). 

ERFF 

5 

C 

ERFF 

6 

Y  •  1.0 

ERFF 

7 

lF(ABS(X)-4.0)  1,1,2 

ERFF 

8 

1  .  •  1.0/(1.*0.3275911*ABS(X)) 

ERFF 

9 

Y  •  1.  -  ( (((1. 061405 ‘T  -  1.453152)*T  +  1.421414)*T  -  0.2844967)n  ERFF 

10 

1  ♦  0. 2548296 1*T*EXP(-X«I) 

ERFF 

n 

2  ERF  •  SIGN(Y,X) 

ERFF 

12 

RETURN 

ERFF 

13 

END 

ERFF 

14 

249 
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ccc 

c 

c 

c 

c 

L 

C 

CCC 


subroutine  ESUHF(TMI,TNR,PS!,ZKM.HSH,00,SPCULR.2LWI.1DAY,IFIRES. 

•  ESURFl.SFR.EPSD.TXS) 

SUBROUTINE  ESURF  PROVIDES  THE  BIOIRECTIONPi  REFLECTANCE 
DISTRIBUTION  FUNCTION  (BRDF),  DIRECTIONAL  EMISSIVITY,  AND 
TEMPERATURE  OF  THE  EARTH'S  SURFACE  AT  THE  INTERSECTION  POINT 
OF  THE  optical  LINE-OF-SIGHT.  SINCE  THE  SURFACE  CATEGORY  IS 
NOT  AUTOMATICALLY  CORRELATED  WITH  THE  GEOGRAPHIC  POSITION, 

THE  USER  MUST  SELECT  ONE  OF  THE  SEVEN  CATEGORIES  PROVIDED. 

INPUT  PARAMETERS 
ARGUMENT  LIST 

THI  •  ZENITH  ANGLE  OF  SOURCE  {E.G.,  SUN  OR  FIREBALL)  AT 
INTERSECTION  POINT.  RADIANS 

WHEN  SUBROUTINE  SURRAO  IS  CALLED  FROM  SUBROUTINE 
UPWELL.  AS  IT  IS  IN  THE  NBR  MODULE.  THI  IS  SET  IN 
SlIRRAD  TO  AN  ARBITRARY  (NON-PHYSICAL)  VALUE  OF 
-I .0  FOR  NIGHTTIME  CONDITIONS. 

ZENITH  ANGLE  OF  LINE-OF-STGHT  AT  INTERSECTION 
POINT,  RADIANS 

AZIMUTH  ANGLE  (AT  INTERSECTION  POINT)  OF  VERTICAL 
PLANE  THROUGH  LINE-OF-SIGHT.  MEASURED  RELATIVE  TO 
THE  SOURCE  PRINCIPAL  PLANE  (I.E..  VERTICAL  PLANE 
THROUGH  SOURCE  RAY),  A  VALUE  OF  PS  1-0  CORRESPONDS 
TO  FORWARD  SCATTERING.  IN  RADIANS 
FOR  NIGHTTIME  CONDITIONS.  PSI  IS  SET  TO  -1.0.  SEE 
COMMENT  ABOVE  FOR  THI. 

ALTITUDE  OF  SURFACE,  KM 
INDEX  FOR  CATEGOOY  OF  SURFACE  MATERIAL. 

1.  LAMBERTIAN  DIFFUSE  SURFACE  WITH  SPECTTt ALLY- 
INDEPENDENT  REFLECTANCE  SET  BY  DD'l)  AND 
EMISSIVITY  BY  (l.-DO(l)). 

WATER 
SNOW 
SAND 
SOIL 
FOLIAGE 

urban  material 

additional  descriptor  for  selected  surface 
material. 

FOR  M  -  1,  (IAMBERTIAN  surface).  DD(1)  =  DIFFUSE 
reflectance,  typical  value  is  o.io 

?,  (WATER).  DD(P)  -  WIND  SPEED,  M/SEC. 

3,  (SNOW).  D0(3)  -  SNOW-AGE  PARAMETER, 

00(3). GE.O.  .AND.  .lE.l.  VALUES  OF  0.  AND  1. 
CORRESPOND  TO  NEW  AND  OLD  SNOW  RESPECTIVELY. 
A.B.B,  DD(M)  NOT  USED. 

7,  (URBAN  MATERIAL).  DO(7)-OEGREE-OF-URBANIZATION, 
00(7). GE.O.  .AND.  .LE.l.  FOR  0D(7)  -  0.,  THE 
SPECTRAL  BRDF  C0RPESRON05  TO  A  FLAT  SURFACE 
WITH  AVERAGE  DIRECTIONAL -REFLECTANCE  PROPERTIES 
OF  CONCRETE  AND  ASPHALT.  FOR  00(7)  •  1,,  THE 
SPECTRAL  BRDF  CORRESPONDS  TO  A  DIFFUSE 
REFLECTOR  MULTIPLIED  BY  A  SHADOW-FACTOR 
S(THI,THR)  ■  (  COS(rHI)  ♦  C05(THR)  )/E, 

LOGICAL  PARAMETER 

.TRUE.  COMPUTE  COORDINATES  OF  SPECULAR 


THR 


PSI 


ZKM 

MSM 


OD(M) 


=  2. 
=  3. 

=  5, 
•  6, 
7. 


FOR 

FOR 


FOR 

FOR 


SPCULR 


ESURF 

? 

ESURF 

3 

ESURF 

4 

ESURF 

5 

ESURF 

6 

ESURF 

7 

ESURF 

8 

ESURF 

9 

ESURF 

10 

ESURF 

11 

ESURF 

12 

ESURF 

13 

ESURF 

14 

ESURF 

IS 

ESURF 

16 

ESURF 

17 

ESURF 

18 

ESURF 

19 

ESURF 

20 

ESURF 

21 

ESURF 

22 

ESURF 

23 

ESURF 

24 

ESURF 

25 

ESURF 

26 

ESURF 

27 

ESURF 

28 

ESURF 

29 

ESURF 

30 

ESURF 

31 

ESURF 

3? 

ESURF 

33 

ESURF 

34 

ESURF 

36 

ESURF 

36 

ESURF 

37 

ESURF 

38 

ESURF 

39 

ESURF 

40 

ESURF 

41 

ESURF 

4? 

ESURF 

43 

ESURF 

44 

ESURF 

46 

ESURF 

46 

ESURF 

47 

ESURF 

48 

ESURF 

40 

ESURF 

SO 

ESLIRF 

51 

ESURF 

S? 

ESURF 

S3 

ESURF 

54 

ESURF 

OR 

ESURF 

56 

ESURF 

5T 

ESUR'' 

68 
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REFLECTION  POINT  E5UPF 

=  .FALSE.  00  NOT  COMPUTE  COORDINATES  OF  SPECULAR  ESURF 

REFLECTION  POINT  ESURF 

ZLAM  =  wavelength,  MICROMETERS  ESURF 

IDAY  =  index  for  daylight  CONDITIONS  AT  POINT  P  ESURF 

=  0  IF  SOLAR  ZENITH  ANGLE  .GT,  RO  DEGREES  ESURF 

=  1  IE  SOLAR  ZENITH  ANGLE  .LE.  90  DEGREES  ESURF 

lEIRES  =  Flag  for  inclusion  of  fireballs  ESURF 

»  0  IE  NO  FIREBALL  IS  BEING  CONSIDERED  ESURF 

WHICH  IS  ALWAYS  THE  CASE  IN  THE  NBR  MODULE.  ESURF 
.GT.  0  IF  FIREBALLS  ARE  BEING  CONSIDERED  ESURF 

ESURFl  =  LOGICAL  PARAMETER  ESURF 

•  .TRUE.  IF  ESURF  IS  CALLED  FOR  THE  FIRST  TIME  FROM  ESURF 
SUBROUTINE  SURRAD  AND  BOTH  £PSD  AND  TXS  ESURF 
ARE  WANTED  IN  ADDITION  TO  SFR  AS  OUTPUTS.  ES'JRF 
WHICH  IS  always  THE  CASE  IN  THE  NBR  MODULE  ESURF 

=  .FALSE.  IF  ESURF  IS  NOT  BEING  CALLED  FOR  THE  FIRST  ESURF 
TIME  FROM  subroutine  SURRAD  AND  A  RECOMPU-  ESURF 
TATION  OF  EPSO  AND  TKS  IS  NOT  HEEDED,  A  ESURF 
possibility  which  occurs  only  if  ESURF 

SUBROUTINE  SURRAD  IS  USED  AS  A  UTILITY  ESURF 

ROUTINE  WITH  FIREBALLS  AS  SOURCES.  ESURF 

ESURF 

ATMOUP  COIWON  ES’JRF 

n  -  AMBIENT  ATMOSPHERIC  TEMPERATURE  AT  ALTITUDE  ZKM.  ESURF 

ESURF 

OUTPUT  PARAMETERS  ESURF 

ARGUMENT  list  ES'JRF 

SFR  =  FSUBR(M.00{H).ZLAM'THI,THR,PS1)  ESURF 

•  bidirectional  REFLECTANCE  DISTRIBUTION  ESURF 

FUNCTION,  l./SR  ESIRF 

(COMPUTED  ONLY  IF  SOURCE  IS  ABOVE  THE  HORIZON)  ESURF 

EPSD  -  1.0  -  RH0SUBM(ZLAM’THR,?*P!)  ES'JRF 

•  DIRECTIONAL  EMISSIVITY,  DIMENSIONLESS.  ESURF 

TKS  1  SURFACE  TEMPERATURE,  OEG  K.  ES'JRF 

POSITN  COEWC'N  ESURF 

THIS  OUTPUT  OBTAINS  ONLY  IF  MSM-Z  AND  SPCULR=.TRUE.  ESURF 

SPCLAT  -  north  LATITUDE  OF  POINT  ON  SMOOTH  HORIZONTAL  ESURF 

WATER  SURFACE  FOR  A  SPECULAR  REFLECTION  FROM  ES'JRF 

THE  SOURCE  TO  THE  DETECTOR  (COMPUTED  IN  ESUR'" 

subroutine  GLITTR),  radians  ESURF 

SPCLON  -  EAST  LONGITUDE  Of  POINT  ON  SMOOTH  HORI?ON‘'Al  ESURF 
WATER  SURFACE  FOR  A  SPECULAR  REFLECTION  FROM  ESUR'^ 
the  SO'JRCE  to  THE  DETECTOR  (COMPUTED  IN  tSURF 

SUBROUTINE  GLITTR),  RADIANS  ESURF 

CCC  ESURF 

DIMENSION  DC"'7',ALPMf7),BETMfTl,GAMM'7I.RM00fT).RMPl  f  7),llC')  ESIID'^ 

DIMENSION  WV4fl8\WVB(16,,HV3(l?;.WV7(?3'.GTHI0(7)  ESURF 

DIMENSION  5P4;i;<),5RS(16I,SPB(l?),SP7(?3)  ESUR" 

COMMON/ATMO'JP/  H  .S3AR  .IOORN,RP,RhO,TT,SNI  '  30)  ,HRH0,FEHS£0  ATMO'JP 

COHMON/POSl  IN/  PCSLAT.POSLON.POSALT. SPCLAT, SPCLON  POSITN 

S  ,C1?LAT.C1?L0N,C1ZALT  POSITR 

logical  SPCULR. ESURFl  ESURF 

DATA  (ALPM'l).I*l,  7)  /  0..0.,3..3..?.5,Z.5.A.  ■'  ES'JRF 

DATA  (BE-'Mdl,!"!,  7)  /  0. .0. ,0.9.0.5.0,S,O.S,0. 5  /  ESJR'' 

DATA  (GAMM'r.Id,  7)  /  0.  .0.  .1 .  ,1 ,  ,Z. /  ES"®'' 

DATA  (RMOO'D.I-l,  7)  ;  0.  ,0, .  13 . .5.1 . .  10,  S  /  ESiipp 


59 

60 
61 
6? 

63 

64 

65 
65 

67 

68 

69 

70 

71 
7? 
73 
7A 

75 

76 

77 

78 

79 

80 
81 
8? 

83 

84 

85 

86 
87 

8a 

89 

90 

91 
9? 
9? 

94 

95 

96 
9Y 
99 
99 

101 

107 

107 

lu4 

ir* 

10’ 

? 

7 

■j 

110 

111 

11? 

Hi¬ 

lls 


ccc 

cc 


DATA  7)  !  0..0..3..4..«.,10..1.  / 

DATA  (GTH!0(I).I-1.7)  /  1. .0., 1.024, 1.015,1. 043. l.MS. 1.011  / 

DATA  (LLd),  1-1,7)  /  0,0.0.18.16,12.23  / 

DATA  PI  /  3.141592653590  / 

SPECTRAL  parameters  FOR  SAND. 

DATA  (WV4(I),t.l,18)  /  2.00.2.05,2.18.2.30.2.45.2.50,2.63,2.73. 

*  2.88.2.95.3.20.3.30.3.60,3.75,3.90.4.35. 

*  4.90,5.00  / 

DATA  (SP4(1).I=1.18)  /  0.205.0.238.0.209.0.206,0.177,0.174,0.148. 

*  0.114.0.080.0.040,0.070.0.093,0.145,0.162. 

*  0.152.0.076.0.031.0.035  / 

SPECTRAL  PARAICTERS  FOR  SOIL. 

DATA  (WV5(1). 1-1,16)  /  2.00,2.08.2.25.2.50.2.62.2.70,2.77.2.92, 

*  3.15.3.50.3.70,3.82.4.10.4.60.4.77.5.00  / 
DATA  (SP5(l).l-1.16l  /  0.262.0.272,0.257,0.227.0.198.0.095,0.067, 

*  0.061,0.067.0.112.0.158,0.177,0.195.0.158. 

*  0.142,0.113  / 

SPECTRAL  PARAMETERS  FOR  VEGETATION. 
data  (W¥6(l).l*1.12)  /  2.00,2.20.2.64.2.78,2.96.3.03.3.16,3.22, 

*  3.42,3.58.3.95.5.00  / 

data  (SP6(I).1-1.12)  /  0.129.0.212.0.059.0.059.0.120,0.120.0.033. 

*  0.033,0.074.0.074,0.037,0.021  / 

SPECTRAL  parameters  FOR  URBAN  MATERIALS. 

DATA  (WV7(1),1-1,23)  /  2.00,2.12.2.24.2.26,2.36.2.47,2.55.2.63, 

*  2.70.2.85.2.89.3.00,3.10,3.24.3.62,3.89, 

*  4.00,4.10,4.26,4.42.4.70,4.83.5.00  / 

DATA  (SP7(I), 1-1,23)  /  0.347,0.348.0.326.0.278.0.272.0.295.0.299. 

*  0.296,0.272,0.145,0.118,0.090,0.091,0.100, 

*  0.149,0.193.0.231.0.238.0.240.0.254,0.246.0.229,0.215  / 


CHECK  MATERIAL  INDEX  FOR  PROPER  RANGE 
IF(  (MSM.LT.l)  .OR.  (MSM.GT.7)  )  GO  TO  101 
IF(  .NOT.ESURFl  )  GO  TO  50 

CC  GET  SURFACE  TEMPERATURE  TAKEN  TO  BE  AIR  TEMPERATURE 

CC  AT  ALTITUDE  ZKM. 

CALL  ATM0SU(2,WM) 

TKS  -  n 

50  IF(  MSM.GT.1  )  GO  TO  99 

CC  SET  PROPERTIES  FOR  M5M-1  {THE  VALUE  -1.0  FOR  SFR  IS  AN 

CC  ARBITRARY  DEFAULT  SETTING  VHICH  KILL  NEVER  BE  USED) 

SFR  •  -l.O 

IF(  (IDAY.EQ.l)  .OR.  ( IFIRES.GT.O)  )  SFR  -  DD(1)/PI 

EPSO  -  l.O-DO(l) 

return 

99  IF(  MSM,GT.2  )  GO  TO  100 

CALL  6LITTR(THI,DD(2).SPCUIR,2LAM.IDAY,IFIRES.ESURF1, SFR, EPSO) 

return 

100  ALPHA  -  ALPM(MSM) 

BETA  -  BETM(M5M) 

GATWA  >  GMW(MSH) 

RM2  -  RMOO(MSM) 

RMP  .  RMPI(MSM) 

LLM  •  LL(MSM) 

GTHIOA  •  GTHIO(MSM) 

CC  OBTAIN  THE  SPECTRAL,  NORMAL-INCIDENCE— HEMISPHERICAL 

CC  REFLECTANCE.  RHOM(ZLAM).  BASED  OH  TABLE  2-3  IN  TEXT. 

GO  TO  (101.101,103,104,105.106,107).  MSM 


EStNF 

115 

ESURF 

116 

ESURF 

117 

ESURF 

118 

ESURF 

119 

ESURF 

120 

ESURF 

121 

ESURF 

122 

ESURF 

123 

ESURF 

124 

ESURF 

125 

ESURF 

126 

ESURF 

127 

ESURF 

128 

ESURF 

129 

ESURF 

130 

ESURF 

131 

ESURF 

132 

ESURF 

133 

ESURF 

134 

ESURF 

i;s 

ESURF 

136 

ESURF 

137 

ESURF 

138 

ESURF 

139 

ESURF 

140 

ESURF 

141 

ESURF 

142 

ESURF 

143 

ESURF 

144 

ESURF 

145 

ESURF 

146 

ESURF 

147 

ESURF 

148 

ESURF 

149 

ESURF 

150 

ESURF 

151 

ESURF 

15? 

ESURF 

153 

ESURF 

154 

ESURF 

155 

ESURF 

156 

ESURF 

157 

ESURF 

158 

ESURF 

159 

ESURF 

160 

ESURF 

161 

ESURF 

162 

ESURF 

163 

ESURF 

164 

EVURF 

165 

ESURF 

166 

ESURF 

167 

ESURF 

168 

ESURF 

169 

ESURF 

170 

ESURF 

171 

252 


101  WRITE(6.13)  MSM 

ESURF 

172 

1’ 

FORHAT  (44H0  ERROR  IN  VALUE  OF  KSM-(SEE  ESURF).  MSM=,I5) 

ESURF 

173 

CALL  EXIT 

ESURF 

174 

CC 

FOR  SNOW  (HSM<3) 

ESURF 

175 

103  RHOM  -  (0.44-0.12*(2L.AH-2.))*(1.0-39(3)*S./l?.) 

ESURF 

176 

GO  TO  no 

ESURF 

177 

CC 

FOR  SAND  (NSM.4) 

ESURF 

178 

104 

CALL  LINEAR  (ZLA«,RH0H.UV4.SP4,LLH) 

ESURF 

179 

GO  TO  110 

ESURF 

180 

CC 

FOR  SOIL  (NSM=5) 

ESURF 

181 

105  CALL  LINEAR  (ZLAH.RHONI.HVS.SI'S.LLH) 

ESURF 

182 

GO  TO  no 

ESURF 

ie3 

CC 

FOR  FOLIAGE  (HSN-6) 

ESURF 

184 

106  CALL  LINEAR  (ZLAM,RH0N.WV6.SP6.LLH) 

ESURF 

185 

GO  TO  no 

ESURF 

186 

CC 

FOR  URBAN  HATERIAL  (MSM>7) 

ESURF 

187 

107 

CALL  LINEAR  (Z LAN, RHOM, WV7.SP7.LLN) 

ESURF 

188 

CC 

COMPUTE  APPROXIMATE  VALUE  FOR  THE  SPECTRAL  PARAMETER 

ESURF 

189 

CC 

RH02M{2LAM)  BY  USING  E0.(6*')  IN  TEXT. 

ESURF 

190 

no 

RHOZM  -  RH0M/(PI*GTHI0A} 

ESURF 

191 

CC 

protect  AGAINST  ABORT  FOR  GRAZING  RAYS. 

ESURF 

192 

CTHl  •  C0S(  TMI  ) 

ESURF 

193 

CTHR  -  COS(  TMR  ) 

ESURF 

194 

CC 

IF  THI  OR  THR  GREATER  THAN  BR.9  DEGREES  RESET  TO  89.9  . 

ESURF 

195 

IF(  ABS(CTHn.LT.1.745E-03  )  CTHI  .  1.745E-03 

ESURF 

196 

IF(  ABS(CTHRl,LT.1.745E-03  )  CTHR  *  1.745E-03 

ESURF 

197 

CC 

EVALUATE  AUXILIARY  PARAMETERS  NEEDED  REGARDLESS  OF  PRESENCE 

ESURF 

198 

CC 

OF  SOURCE. 

ESIXJF 

199 

RBAR  -  0.5*(RM2*«MP) 

ESURF 

200 

SA  •  ALPHA*BETA 

ESURF 

201 

PIA  •  (I.0-EXP(-SA))/SA 

ESURF 

202 

CC 

HEED  NOT  COMPUTE  SFR  IF  NEITHER  SUN  NOR  FIREBALL  IS 

ESURF 

203 

CC 

CONSIDERED  AS  A  SOURCE.  SO  SET  IT  (ARBITRARILY)  TO  -1.0 

ESURF 

204 

SFR  •  -1.0 

E3URF 

205 

1F(  (IDAY.EO.O)  .AND.  (IFIRES.EO.O)  )  GO  TO  1?4 

ESURF 

206 

IF(  (THI.GT.O.O)  .OR.  (THR.GT.0.0)  )  GO  TO  1?0 

ESURF 

207 

CC 

EVALUATE  SFR  AVERAGED  OVER  AZIMUTH  ANGLES,  FROM  EQ.(3A)  IN 

ESURF 

208 

CC 

TEXT. 

ESURF 

209 

SFR  •  RH02M*(1.0^BAR»P1A*EXP(-?.*ALPHA)) 

ESURF 

210 

CTHR  •  l.O 

ESURF 

211 

GO  TO  122 

ESURF 

212 

1?0  ABTF  -  BETA*(1.0-A8S(1.0-Z.*PSI/Pn) 

ESURF 

213 

CGAM  -  CTHI**GA»«  ♦  CTHR  ♦•GAMMA 

ESURF 

214 

RMPSl  *  RMZ  -  (RMZ-RMP)*P5I/PI 

ESURF 

215 

CC 

EVALUATE  EQ.d)  IN  TEXT. 

ESURF 

216 

SFR  -  RHOZM*(1.0^RMPSI»EXP(-ALPHA*(CGAM+ABTF))) 

ESlXiF 

217 

12? 

IF{  MSM.NE.7  )  GO  TO  124 

ESURF 

218 

CC 

FOR  MSM=7,  EVALUATE  E0.(171  IN  TEXT  FOR  SFR. 

ESURF 

219 

IFBAN  -  RHOZ»**00(7)*(CTHItCTHR)72. 

ES"RF 

220 

SFR  ■=  URBAN  ♦  SrR*(l  .0-D0(  7 )) 

ESURF 

221 

124 

IF(  .NOT.ESURFl  )  RETURN 

ESURF 

22? 

CC 

PREPARE  TO  COMPUTE  DIRECTIONAL  EMISSIVITT, 

ESLYIF 

?73 

CC 

EVALUATE  EO.(IO)  IN  TEXT  WITH  THETA  REPLACED  BY  THR . 

ESURF 

??4 

FGAPW  »  EXP(-ALPHA*CTHR»^6Am\; 

ESLIRF 

??5 

I  GAM  •  GAMMA+0.25 

ESURF 

??6 

GO  TO  {126,128).  16AM 

ESURF 

??7 

CC 

EVALUATE  EO.(B)  IN  TEXT. 

ESURF 

??8 

253 


IM 

P2GWI  .  (1.0-(W.WA+1.)«EXP(-ALPHA))/(ALP«A*ALPH») 

ESURF 

229 

GO  TO  no 

ESURF 

230 

cc 

EVALUATE  £0.(9)  IN  TEXT. 

ESURF 

231 

1?8 

P2GAW  -  (1.0-EXP(-ALPHA))/(2. ‘ALPHA) 

ESURF 

23? 

CC 

FRHOM  =  OIRECTIONAL-HENISPHERICAL  REFLECTANCE 

ESURF 

233 

CC 

EPSO  =  directional  EMISSIVITT 

ESURF 

234 

cc 

EVALUATE  E0.(6)  IN  TEXT.  BUT  WITH  THI  REPLACED  BT  TKR  IN  THE 

ESURF 

235 

cc 

ANTICIPATION  THAT  FRHOH  HILL  BE  USED  IN  £0.(12)  FOR  THE 

ESURF 

236 

cc 

DIRECTIONAL  EMISSIVITY. 

ESiJRF 

237 

130  FRHOH  =  PI*«HOZH  *  (1 .0*2. •PlA*P2GAW*R8AR*f GAW) 

ESUR"^ 

238 

IF(  HSM.NE.T  )  60  TO  140 

ESURF 

239 

CC 

FOR  MSN=7,  EVALUATE  E0.(18)  IN  TEXT,  BUT  WITH  THI  REPLACED  BY 

ESURF 

240 

CC 

THR  in  the  ANTICIPATION  THAT  FRHOH  HILL  BE  USED  IN  t0.(191  FOR 

ESl*F 

241 

CC 

THE  DIRECTIONAL  EMISSIVITY. 

ESURF 

242 

FRHOM  *  (l.-0D(7I)*FRH0M  +  DO(7)*flH02H*PI»(0.50«CTHR  +  0.333333) 

ESURF 

243 

CC 

evaluate  E0.(12)  in  TEXT. 

ESURF 

244 

no 

EPSO  =  1.0-FRHOM 

ESURF 

245 

RETURN 

ESURF 

246 

END 

ESURF 

247 

FUNCTION  FRAF  (  A,  B,  X.  Y  ) 

ERAC 

2 

FRAC 

3 

*FRAC»  CALCULATES  THE  FRACTION  OF  INTERVAL  (A.El 

FR  AC 

4 

CONTAINED  IN  INTERVAL  (X.Y)  IF(  (A,E) 

-LE.  (X.Y)  ) 

OR 

FRAC 

5 

COVERED  BY  interval  (X.Y)  1F(  (A.B) 

.GT.  (X.Y)  ) 

. 

FRAC 

b 

fra: 

7 

0  =  A  -  B 

FPAC 

8 

FRl  -  AMAXK  AMINH  (A  -  Y)/C.  1.  ).  0.  ' 

FRAC 

9 

FR2  AMAXK  AMINlf  (X  -  P'/O,  1.  ).  0.  ) 

FRAC 

10 

FRAC  =  FRl  +  FR2  -  1. 

FRAC 

11 

return 

FRAC 

1? 

END 

FRAC 

13 
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SUBROUTINE  FRESNL(ZL/W,0«&A,I1HO) 


ccc 

c 

c 

ccc 

c 

c 

c 

c 

c 

ccc 


c 

c 

c 

c 

ccc 

c 

c 

c 

c 
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FRESNL 
FRE5NL 

SUBROUTINE  FRESNL  EVW.UATES  T>4E  FRESNEL  fSRECU;.ARl  FRESNL 

MONOCHROMATIC  REFLECTANCE  OF  A  SMOOTH  WATER  SURFACE.  GIVEN  FRLSNL 
THE  WAVELENGTH  AND  ANGLE  OF  INCIDENCE.  FRESNL 

FRESNL 

INPUT  PARAMETERS  FRESNL 

ARGLf<ENT  list  FRESNL 

2LAH  -  wavelength  'MICPOME'^ERSF  FRESS. 

OMEGA  -  ANGLE  OF  INCIDENCE  (WITH  RESPECT  TO  NORMAL  TO  FRESNL 
SMOOTH  element  OF  WATER  SURFACE'  (RADIANS'  FRESNL 

FRESNL 

OUTPUT  PARAMETER  FRESNL 

ARGUMENT  LIST  FRESNL 

RMO  -  FRESNEL  MONOCHROMATIC  REFLECTANCE  QF  PLANE,  FRESNL 

UHPOLARIZEO  ELECTROMAGNETIC  WAVE  INCIDENT  AT  FRESNL 

angle  Omega  on  plane,  absors’ng  S'jrface  with  fresnl 

complex  index  of  refraction  NN  -  5N  -  1*SX  FRESNL 

FRESNL 

dimension  $NNU(???).  SICNU(2??)  FRESNL 

FRESNL 

THE  VALUES  OF  THE  COMPLEX  INDEX  OF  REFRACTION  ARE  TAKEN  FROM  FRESNL 
H.  0.  DOWNING  AND  0.  WILLIAMS,  OPTICAL  CONSTANTS  OF  WATER  IN  FRESNL 

THE  INFRARED,  J.  GEOPHYS.  RES.  'N)L.  80,  1656(1975'.  FRESNL 

FRESNL 

DATA  (SNNU(1),1=1,1A2)  /  1. 3?1. 1.322.1. 3??. 1. 323. 1.324.1.32A,  fresn. 

1. 325.1.326,1. 325, 1.325, 1.325, 1.325.  FRESNL 

1.326,1.326.1.326,1.327.1.327,1.327,1.327,1.327,1.328,1.328,  FRESNL 

1.329.1.329,1.329,1.330,1.330.1.330.1.331,1.332.1.332,1.333,  FRESN, 

1. 334, 1. 334, 1. 335. 1. 337. 1.337.1. 338. 1.3«0, 1.340, 1.341, 1.312.  FRESNL 

1.343.1.344,1.344,1.346,1.346,1.347,1.348,1.348,1.349,1.350.  FRESNL 

1.351. 1.352, 1.353, 1.354, 1.355, 1.357, 1.358, 1.358, 1.360. 1.361,  FRESNL 

1.361.1.363.1.365.1.366,1.367,1.369.1.370,1.371,1.372,1.374,  FRESNL 

1.375, 1.377, 1.378, 1.379. 1.382, 1.383. 1.385, 1.387, 1.388,1. 390,  CRESNL 

1.392.1.394,1.396.1.398,1.400,1.403,1.405,1.407,1.410,1.413,  FRESNL 

1.415.1.418,1.421,1.425,1.427,1.431,1.434,1.437,1,441,1.444,  FRESNL 

1.448,1.451,1.454,1.457,1.461.1 .464,1.467,1.472,1 .474,1 .477,  FRESNL 

1.479.1.482,1.485.1,486,1.487.1.487.1.487.1.486,1.493,1.430,  FRE5N- 

1. 476. 1. 471, 1. 465. 1. 457. 1. 450, 1.442, 1. 434, !.4?6, 1.417,1 ,40’,  FREES. 

1.398.1.386,1.376.1.364.1.353,1.342.1.329,1.317,1.305,1.293  /  FRESNL 

DATA  (SNNU(I), 1=143, 222)  /  1.282,1.271,1.258.1.246.1.233.  ERESN. 

1.220, 1.212.!.  199.1. 19'..  1.183,  EPESNL 

1,1 77, 1.171, 1.165, 1.161. 1.158, 1.164. 1.149, 1.144, 1,141, 1.139,  FRESNL 

1.1 38, 1.138. 1.139, 1.144. 1.149. 1.167, 1.166. 1.172,1 .179,1.185,  FRESNL 

1.191.1.195.1.200,1.206,1  210. 1.314. 1.218, 1.221.1 .224,1  .227,  FRESSl 

1.230. 1.232, 1.235, 1.238, 1.240, 1.241, 1.243, 1,246, 1.247, 1.249,  FRESSL 

1.260.1.257,1.254,1.255,1.256.1 .257,1. ?69,1. ’60. 1.261. 1.265,  FRESS. 

1.270, 1.274. 1.277, 1.280, 1.282, 1.285, 1.287. 1.289. 1.291. 1.293,  FPrSN. 

1.294, 1.295, 1.296, 1.298, 1.298, 1.300. 1.301. 1.301,1 .303,0.0  /  FPESNL 


data  (SKNU(r.,I  =  1.1121  '  1.26E-2,1.?9E-2.1.33E-?,1.3’E-?.  FRESNL 

*  1.40E-2.1.43E-2,1.46E-?.l,48r-?,  FRESS. 

*  1.51E-2,1.53E-2,1.65E-?,1.67E-?,1.57E-?.:.'/E-2, 1.565-3, 1.546-2,  FRESNL 

*  1. 52E-2, :. 496-2, 1, 45E-2, 1. 40E-2. 1 ,3F.r-?. 1.316-2,1.  ?5E-2,1.22E-2,  FREES'. 

*  1.17E-2,1.12E-2.I.08E-2,1.04E-2,1.00E-2.9.66t-3,9.27E-3,8.96E-3.  fress, 

*  8.64E-3,8.33E-3,B.06E-3,7.7qE-3,7.49E-3.7.22E-3.6.96E-3.6,73E-3,  FRESNl 

*  6.53E-3,6.31E-3,6.08E-3,5.86E-3.5.68E-3.5.49E-3,5.31E-3,5.1?E-3,  fresn^ 

*  4.94E-3,4,79E-3,4.65F-3,4,50E-3,4.33E-3.«.?2E-3,4.10E-3.3.99E-3.  FRESS. 


2 

> 

i 

t, 

6 

7 

8 
9 

1  -I 

I'l 

12 

t  j 

14 

16 

16 

17 

1? 

19 

20 
?! 
2? 

23 

24 

25 

26 
77 
28 

29 

30 

31 

33 

33 

34 

35 

36 

37 

39 

4C 

41 

43 

47 

4i 

45 

46 

«’ 

i- 

49 

S'’ 

i;i 
6? 
t  7 

Cl. 

cc 

C  1 
5C 


3.89E-3,3.78E-3,3.7a-3,3.63E-3,3.5?E-3.3.«8£-3.3.*0€-3.3.39E-3, 
3.35E-3.3.36E-3.3.35E-3.3.40E-3.3.«7E-3,3.5S£-3.3.63E-3.3.76E-3. 
3.89E-3.4.05E-3.«.?4E-3.4.*9E-3,4.73E-3,5.06E-3,5.38E-3.5.79E-3, 
6.?5E-3.6.83E-3.7.37E-3,8.07E-3.8.66E-3.9.41E-3,1.01E-2,1.10E-2. 
1.18E-2,1.28E.Z,1.38E-2.1.51E-?.1.63E-?.l.77£.?.1.93E-2.2.iaE-?. 
Z.?9E-?,?.50E-2.?.S2E-2.Z,79E-2,Z.9:E-?.3.15E-2.3.4BE-2,3.85E-?. 
4.22E-2,4.62E-2,5.O4£.?,5.5OE-?.6.00£-2,6.53E-2,7.16E-2,7.85E-2  / 
DAT*  (Si:HLI(I).1'113.222)  /  8.55E-2.9.20E-2,9.94E-2.1.10E-1, 

1.17E-1.1.25E-1.1.34E-1.1.44E-1. 
1.53E-1,1.63E-1.1  73E-1.1.83E-1.1.95E-1,2.04£-1.2.12E-1.2.20E-1, 
2.2e£-l,2.36£-1.2.43E-l,2.50E-1.2.55E-1.2.62E-  1,2.67E-1 ,2.72E-1, 
2.76E-1.2.79E-1,2.02E-1,2.82E-1,2.81E-1.2.80E-1.2.76E-1.2.7’E-1. 
2.65£-1.2.58E-1.2.49E-l,2.39£-l,2.29E-1.2.18E-l,2.06E-1.1.94E-l. 
l.eOE-].1.67E-l,1.54E-l,1.42E-l,I.31E-l,1.21E-1.1.12E-l,1.02£-l. 
9.27E-2.8.36E-2.7.44E-2.6.49E-2.5.48E-2.4.62E-2.3.80£-2,2.8?E-2. 
2.05E-2,1.86E-2,1.64E-2.1.45E-2.1.27E-2.3.05E-2.8.55E-3.7,32E-3. 
6.27E.3.S.36E-3,4.82E.3.4.37E-3.4.02E-3.3.30E-3.2.98E-3,2.70E-3. 
2.S7E-3.2.48E-3,2.43E-3.2.39E-3,2.34E-3.2.3'.E-3.2.27t-3,2.24E-3. 
2.19£-3.2.15E-3.2.12E-3.2.10E-3.2.07E-3.2.05E-3.2.(»£-3,1.95E-3, 
1.90E-3,1.56E-3.1.23E-3,9.68E-4.7.92E-4.6.S2E-4.5.42E-4.4.65E-4. 
4.18E-4.3.76E-4.3.45E-4.3.38E*«.3.41E-4.3.59£-4.4.00E-4,4.52E-4. 
5.14E-4,6.17E-4.7.31E-4.9.00E-4,1,10£*3.0.0  ! 


THE  F0RHUL4S  FOR  THE  REFLECTMICE  ARE  TAKER  FftOH,  E.  G.,  D. 
HENZEL  (EDITOR),  FUNOAWNTAL  FORHULAS  W  PHYSICS.  (P.  422), 
DOVER  PUBLICATIORS.  IRC..  NEW  YORK.  1960. 


H. 


HAVE  .  1.0EHJ4/ZLAM 

IF(  HAVE. GE. 4000.  )  SO  TO  10 

HY  -  FRACTIORAT  *J«ER  of  DATA  POIRTS  CORRESPOROING  TO  HAVE. 

HX  -  1.0  +  (HAVE-2<XX).)/10. 

GO  TO  20 

10  HX  .  201.  ♦  (have-4000. )/50. 

IJ  *  FIRST  OATA-POINT  INDEX  ABOVt  HAVE. 

20  IJ  •  HI+1.0 

OELH  •  FRACTIONAL  PART  OF  DATA  INTERVAL  CORRESFONOING  TO  HAVE. 
OELH  •  HX  -  FLOAT(lJ-l) 

SH  •  SNNU(IJ-l)  ♦  (SNHU(1J)-SNNU(IJ-1))»0ELH 

SK  »  5KNU{1J-1)  *  (SKHU(IJ).5KNy(lJ*l))»0ELH 

SNSQ  •  SIM(  OWGA  )**2 

SNKS  •  SN*SN-SK*SK-SNSC 

FHK  •  (2.»SN*SK]«2 

TRN  >  SQKT(  SNKS*SWCS*F!«  ) 

SAPSO  '  0.50*('niH*S»C5j 
SAHSQ  »  O.W(TRR-SHKS> 

CC  •  SAPSO*SAMSO 
SAP  -  SORT(  SAPSO  ) 

EE  *  COS(  ONEGA  ) 

EE*£E 

2. ♦$*?«££ 

SN SO/EE 
00*00 
2.*SAP*00 

(CC-APE2*EES0)/(CC*APE2+EESC) 

RS*(CC*DOSr))/(CC'AP02*OOSO) 


EESQ 
APE2 
00 
00  SO 
APD2 
RS  • 
RKO 
RETURN 
END 
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FRESNl 

98 

fresnl 

99 

FREpNL 

IOC 

FRESNL 

201 

FRESNL 

102 

FRESNL 

10’ 

fresnl 

104 

FRE5N: 

10^ 

FRESNL 

106 

FRE5.Nl 

107 

fresnl 

108 

fresnl 

109 

fresnl 

no 

fresnl 

111 

fresnl 

11? 

fresnl 

in 

fresnl 

114 

FRESNL 

116 
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SUBROUTfNF  GCRCLE(P1LAT.P1LON,P3CAT,P3LOK,*CPU,ALI>1?.P?L/>T,P?LON)  KRCCE 

2 

ccc 

GCRCLE 

3 

c 

FOR  THREE  POINTS  PI.  P?,  AND  P3  ON  A  GREAT  CIRCLE.  SUBROUTINE 

GCRCLE 

A 

c 

GCRCLE  COMPUTES  THE  LATITUDE  AND  LONGITIJOE  OF  THE  INTER¬ 

GCRCLE 

c 

MEDIATE  POINT  P2,  GIVEN  THE  LATITUDES  AND  LONGITUDES  OF  THE 

GCRCLE 

6 

c 

END  POINTS  PI  AND  P3,  THE  CENTRAL  ANGLE  ALP13  BETWEEN  THE 

GCRCLE 

/ 

c 

CENTRAL  RATS  TO  PI  AND  P3,  AND  THE  CENTRAL  ANGLE  ALPI? 

GCRCLE 

8 

r 

BETWEEN  THE  CENTRAL  RAYS  TO  PI  AND  P?. 

GCRCLE 

9 

CCC 

GCRCLE 

10 

C 

INPUT  PARAMETERS 

GCRCLE 

11 

C 

ARGL’MENT  LIST 

GCRCLE 

12 

c 

PlLAT  -  NORTH  LATITUDE  OF  POINT  PI,  RADIANS 

GCRCLE 

13 

c 

PILON  -  EAST  longitude  OF  POINT  PI.  RADIANS 

GCRCLE 

14 

c 

P3LAT  -  NORTH  LATllUDE  OF  POINT  P3.  RADIANS 

GCRCLE 

15 

c 

P3LON  -  EAST  LONGITUDE  OF  POINT  P3,  RADIANS 

GCRCLE 

16 

c 

ALP13  -  EARTH-CENTRAL  ANGLE  BETWEEN  RAYS  TO  POINTS 

GCRCLE 

17 

c 

PI  AND  P3,  RADIANS 

GCRCLE 

18 

c 

ALP12  -  EARTH-CENTRAL  ANGLE  BETWEEN  RAYS  TO  POINTS 

GCRCLE 

19 

c 

PI  AND  P2.  RADIANS 

GCRCLE 

20 

ccc 

GCRCLE 

21 

c 

OUTPUT  PARAMETERS 

GCRCLE 

22 

c 

ARGUMENT  LIST 

GCRCLE 

23 

c 

P2LAT  -  north  LATITUDE  OF  POINT  P2,  RADIANS 

GCRCLE 

24 

c 

P2L0N  -  EAST  LONGITUDE  OF  POINT  P2,  RADIANS 

GCRCLE 

25 

ccc 

GCRCLE 

26 

DATA  PI  /  3.1A1592653590  / 

GCRCLE 

27 

ccc 

GCRCLE 

28 

c 

CONSIDER  THE  SPHERICAL  TRIANGLE  P1-N-P3 

GCRCLE 

29 

c 

POINT  N  IS  north  POLE 

GCRCLE 

30 

ccc 

GCRCLE 

31 

5INC0S  -  SIN{P3LAT)  -  COS( ALP13I»SIN(P1LAT) 

GCRCLE 

32 

SINCOS  •  SIHCOS/(SIN(ALP13)*COS(P1LAT)) 

GCRCLE 

33 

AMDA  -  AC05{  SINCOS  ) 

GCRCLE 

34 

ccc 

GCRCLE 

35 

c 

CONSIDER  THE  SPHERICAL  TRIANGLE  P1-N-P2 

GCRCLE 

36 

ccc 

GCRCLE 

37 

COSSIN  -  C0S(ALPI2)*SIN(P1LAT) 

GCRCLE 

3B 

SINCOS  -■  5.n:aLP12)*COS(P1LAT) 

GCRCLE 

39 

P2LAT  -  AS:h{  COSSIN  ♦  SINC0S»C0S(AMDA)  ) 

GCRCLE 

40 

ccc 

GCRCLE 

41 

c 

AGP.IN,  CONSIDER  SPHERICAL  TRIANGLE  P1-N-P2 

GCRCLE 

42 

ccc 

GCRCLE 

43 

PI2  =  PI+PI 

GCRCLE 

44 

P3MP1  •  P3L0N-P1L0H 

GCRCLE 

45 

P12L0N  •  ASIH[  SIN(AMDA)*SIN(ALP12)/C0S(P?lAT)  ) 

GCRCLE 

46 

P2L0N  '  PILON  +  P12L0N*SI6N{1.0,P3MP1) 

GCRCLE 

47 

IFf  ABS!P3MP1).LE.P!  )  GO  TO  10 

GCRCLE 

48 

P2LPN  »  PlLOH  -  P12L0N»SIGN(1.0,P3MP1) 

GCRCLE 

49 

10 

IF(  P2L0N.LT. 0.0  )  P2L0N  -  P2L0N+PI2 

GCRCLE 

50 

IF{  P2L0N.GE.PI2  )  P2L0N  -  P2LON-PI2 

GCRCLE 

51 

RETURN 

GCRCLE 

5? 

END 

GCRCLE 

53 
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SUBHOUTINE  6E0REA{HAl,GCl,GLl.HA?.eC2,GL2,SR?l,EL21.AZ?l) 

GEOREA 

2 

ccc 

GEOREA 

3 

c 

subroutine  GEOREA  (A  MOOIEIEO  HARC  ROUTINE).  GIVEN 

THE 

GEOREA 

A 

c 

geographic  COORDINATES  OF  TWO  POINTS,  PROVIDES  THE 

SLANT  RANGE, 

GEOREA 

B 

c 

ELEVATION  ANGLE.  AND  AZIMUTH  ANGLE  OF  POINT  2  WITH 

RESPECT  TO 

GEOREA 

B 

c 

POINT  1. 

GEOREA 

7 

ccc 

GEOREA 

8 

c 

INPUTS  FROM  CALL  STATEMENT 

GEOREA 

9 

c 

HAl  =  ALTITUDE  OF  POINT  1,  CM 

GEOREA 

10 

c 

GCl  •  COLATITUDE  OF  POINT  1.  RADIANS 

GEOREA 

11 

c 

GLl  =  EAST  LONGITUDE  OF  POINT  1.  RADIANS 

GEOREA 

12 

c 

HA2  =  ALTITUDE  OF  POINT  2,  CM 

GEOREA 

13 

c 

GC2  -  COLATITUDE  OF  POINT  2,  RADIANS 

GEOREA 

14 

r 

GL2  "  EAST  LONGITUDE  OF  POINT  2.  RADIANS 

GEOREA 

IS 

c 

OUTPUTS 

GEOREA 

Ifi 

c 

SR21  -  SLANT  RANGE  OF  POINT  2  RELATIVE  TO  POINT  1,  CM 

GEOREA 

17 

c 

EL21  =  ELEVATION  OF  POINT  2  RELATIVE  TO  POINT 

1,  RADIANS 

GEOREA 

18 

c 

AZ21  =  AZIMUTH  OF  POINT  ?  RELATIVE  TO  POINT  1 

.  RADIANS 

GEOREA 

19 

ccc 

GEOREA 

20 

CALL  GE0TAN(HA1,GC1,GL1,HA2,GC2,GL2.XE21,YN21.ZV21) 

GEOREA 

21 

XYSQ  •  X£21»*2  +  YN21»*2 

GEOREA 

22 

SR21  -  SORT(XYSO  +  ZV21**?) 

GEOREA 

23 

EL21  =  ATAN2(  ZV21,SORT(XYSO)  ) 

GEOREA 

24 

AZ21  -  0.0 

GEOREA 

25 

1F{  XYSQ. GT. 0.0  )  AZ21  =  ATAN?(  XE21,YN?1  ) 

GEOREA 

26 

RETURN 

GEOREA 

27 

END 

GEORFA 

28 

SUBROUTINE  GE0TAN(HA1,GC1,GL1,HA2,GC?.GL2,XE21,YN21,ZV21) 

GEO  tan 

2 

f'ZZ 

GEOTAN 

3 

c 

SUBROUTINE  GEOTAN  (A  MODIFIED  HARC  ROUTINE  CALLED  GEOXYZ) 

GEOTAN 

4 

C 

GIVFN  THE  GEOGRAPHIC  COORDINATES  OF  TWO  POINTS.  PROVIDES 

THE 

GEOTAN 

A 

C 

TANGENT-PLANE  COORDINATES  OF  POINT  2  WITH  RESPECT  TO  POINT  1. 

GEOTAN 

6 

CCC 

GEOTAN 

7 

c 

INPUTS  FROM  CALL  STATEMENT 

GEOTAN 

8 

c 

HAl  =  ALTITUDE  OF  POINT  1,  CM 

GEOTAN 

9 

c 

GCl  =  colatitude  of  POINT  ].  RADIANS 

GEOTAN 

10 

c 

GLl  =  EAST  LONGITUDE  OF  POINT  1,  RADIANS 

GEOTAN 

11 

c 

HA2  »  altitude  or  POINT  2.  CM 

GEOTAN 

12 

c 

GC2  =  COLATITUOE  of  point  2.  RADIANS 

GEDTAN 

13 

c 

GL2  =  EAST  longitude  OF  POINT  2,  RADIANS 

GEOTAN 

14 

c 

OUTPUTS 

GEOTAN 

IS 

c 

XE21  X  COORDINATE  OF  POINT  2  RELATIVE  TO  POINT  1. 

CM 

GEOTAN 

IF 

c 

YN21  =  Y  COORDINATE  OF  POINT  2  RELATIVE  TO  POINT  1, 

CM 

GEOTAN 

17 

c 

ZV21  =  Z  COORDINATE  OF  POINT  2  RELATIVE  TO  POINT  1. 

CM 

GEOTAN 

18 

ccc 

GEOTAN 

19 

DATA  RE  /  6.37103E+OR  / 

GEOTAN 

20 

ccc 

GEOT-AN 

21 

GRl  =  RE+HAl 

GEOTAN 

22 

GR?  -  RE‘HA2 

GEOTAN 

23 

GLD  =  6L2-GL1 

GEOTAN 

24 

SiNGCl  >  SIN(GCl) 

GEOTAN 

25 

SINGC2  =  SIN(GC2) 

GfOTAN 

26 

COSGCl  =  COS(GCl) 

GEOTAN 

?? 

C0SGC2  =  C0S(GC2) 

GEOTAN 

2B 

COSGLD  =  COS' GLD) 

GTOTAN 

2R 

XE21  -  GR?*SINGC?*SIN{GLnl 

GrOTftN 

3^ 

YN21  =  GR?*(5!NGC1*C0SGC?  -  CnSGCl*SINGC2»C0SGLD) 

GEOTAN 

31 

ZV21  =  GR?*(C0SGC1*C0SGC.^  ♦  SINGCl*SINGC2*r0SGL01  -  GRl 

GEOTAN 

3? 

RtTURN 

GEOTAN 

33 

END 

GEOTAN 

34 

OOOOOOOOOOO 


ccc 

c 

c 

ccc 


c 

c 

ccc 

ccc 


SUBROUTINE  GEOXYZIPH.PLAT.PLON.RPX.RPT.RPII 


SUBROUTINE  GECXYZ  CONVERTS  THE  GEOGRAPHIC  COORDINATES  OF  A 
POINt\o  EARTH-CENTERED  CARTESIAN  COORDINATES. 

INPUT  PARAMETERS 

ARGUMENT  LIST  . 

PH  -  altitude  of  POINT  P.  KM 
plat  -  NORTH  latitude  OF  POINT  P.  RAO WS 
PLON  -  EAST  LONGITUDE  Of  POINT  P,  RADIANS 
OUTPUT  PARAMETERS 

"'^^RP^ -‘■earth-centered  cartesian  coordinate  X  OF 
RPY  -  earth-centered  cartesian  coordinate  y  of 

P.PZ  -  WTH-CENTERED  CARTESIAN  COORDINATE  1  OF 
POINT  P,  KM 


data  re  /  6.37103E*03  / 


RP  •  RE*PH 

RP2  .  RP*SIN(PLAT) 

RPEO  »  RP*COS(PLAT) 

fiPX  •  RPEQ»C0StPL0N) 

RPY  =  RPEQ*SIN(PLON) 

RETURN 

END 


GEOXYZ 

2 

GE0XY2 

3 

GEOXYZ 

4 

GEOXYZ 

S 

GEOXYZ 

6 

GEOXYZ 

7 

GEOXYZ 

8 

GEOXYZ 

9 

GEOXYZ 

10 

GEOXYZ 

11 

GEOXYZ 

IZ 

GEOXYZ 

13 

GEOXYZ 

14 

GEOXYZ 

15 

GEOXYZ 

16 

GEOXYZ 

17 

GEOXYZ 

18 

GEOXYZ 

19 

GEOXYZ 

20 

GEOXYZ 

21 

GEOXYZ 

22 

GEOXYZ 

23 

GEOXYZ 

24 

6E0ZYZ 

25 

GEOXYZ 

26 

GEOXYZ 

27 

GEOXYZ 

28 

GEOXYZ 

29 
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ccc 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ccc 


subroutine  GLirrR(THETAI,WlN0,SPCULR.ZLAM,10AY,IFIRES,ESURFl. 

*  SFR.EPSD) 

SUBROUTINE  GLITTR,  CALLED  FROH  ESURF  WHEN  THE  LINE-OF-SIGHT 
INTERSECTS  A  HATER  SURFACE.  PROVIDES  (lA)  THE  BIDIRECTIONAL 
REFLECTANCE-DISTRIBUTION  FUNCTION  (BROF)  AND  (IB)  DIRECTIONAL 
EMISSIVITY  OF  THE  HATER  SURFACE  AT  THE  INTERSECTION  POINT  OF 
THE  OPTICAL  LINE-OF-SIGHT  FROM  THE  DETECTOR  AND  (2)  THE 
GEOGRAPHIC  COORDINATES  (NORTH  LATITUDE  AND  EAST  LONGITUDE)  OF 
THE  POINT  OH  A  SMOOTH  HORIZONTAL  SURFACE  FOR  A  SPECULAR 
REFLECTION  OF  A  RAY  FROM  THE  SOURCE  TO  THE  DETECTOR.  IF 
REQUESTED  (BY  LOGICAL  PARAMETER  SPCULR  «  .TRUE.  IN  ARGUMENT 
LIST).  ONLY  THE  DIRECTIONAL  EMISSIVITY  IS  PROVIDED  IF  THERE 
IS  MO  SOURCE. 

INPUT  PARAMETERS 
ARGUMENT  LIST 

THETAI  •  ZENITH  ANGLE  OF  SOURCE  (SUM  OR  FIREBALL)  AT  THE 
INTERSECTION  POINT  OF  LINE-OF-SIGHT  FROM  DETECTOR 
TO  EARTH'S  SURFACE  (RADIANS) 

HIND  •  HIND  SPEED  AT  41  FEET  ABOVE  SEA  LEVEL  (METERS/SEC) 
SPCULR  '  LOGICAL  PARAMETER 

■  .TRUE.  COMPUTE  COORDINATES  OF  SPECULAR 
REFLECTION  POINT 

-  .FALSE.  OQ  NOT  COMPUTE  COORDINATES  OF  SPECULAR 

REFLECTION  POINT 
ZLAM  -  WAVELENGTH  (MICROMETERS) 

IDAY  ■  INDEX  FOR  DAYLIGHT  CONDITIONS  AT  POINT  P 

•  0  IF  SOLAR  ZENITH  ANGLE  .GT.  90  DEGREES 

•  1  IF  SOLAR  zenith  ANGLE  .LE.  90  DEGREES 
IFIRES  «  FLAG  FOR  INCLUSION  OF  FIREBALLS 

-  0  IF  NO  FIREBALL  IS  BEING  CONSIDERED 
.ST.  0  IF  FIREBALLS  ARE  BEING  CONSIDERED 

ESURFl  -  LOGICAL  PARAMETER 

•  .TRUE.  IF  ESURF  IS  CALLED  FOR  THE  FIRST  TIME  FROM 

SURRAD  AND  EPSD  IS  HANTED  AS  AN  OUTPUT. 
HHICH  IS  ALWAYS  THE  CASE  IN  THE  NBR  MODULE 

•  .FALSE.  IF  ESURF  IS  HOT  BEING  CALLED  FOR  THE  FIRST 

TIME  FROH  SURRAD  AND  A  RECOMPUTATION  OF 
EPSD  IS  NOT  NEEDED 

TECTOR  COWN 

DETLAT  -  DETECTOR  NORTH  LATITUDE.  RADIANS 
DETLON  -  DETECTOR  EAST  LONGITUDE.  RADIANS 
OETALT  -  DETECTOR  ALTITUDE.  KM 

DETZEN  -  DETECTOR  ZENITH  ANGLE  AT  POINT  P.  RADIANS 
POSITN  COMON 

POSLAT  -  NORTH  LATITUDE  OF  INTERSECTION  POINT  OF  LINE-OF- 
SIGHT  FROM  DETECTOR  TO  E<WTH'S  SURFACE  (RADIANS) 
POSLON  -  EAST  LONGITUDE  OF  INTERSECTION  POINT  OF  LINE-OF- 
SIGHT  FROM  DETECTOR  TO  EARTH'S  SURFACE  (RADIANS) 
POSALT  -  ALTITUDE  OF  POINT  P  AT  WHICH  LINE-OF-SIGHT 
INTERSECTS  EARTH'S  SURFACE.  KM 
SOURCE  COIMIN 

SRCLAT  -  NORTH  LATITUDE  OF  SOURCE  (SUN  OR  FIREBALL)  RADIANS 
SRCLON  .  EAST  longitude  OF  SOURCE  (RADIANS) 

SRCALT  -  ALTITUDE  OF  SOURCE.  IF  NOT  THE  SUN  (KM) 

SRCFLG  -  1.  IF  SOURCE  IS  SUN 


GLITTR 

2 

GLITTR 

3 

GLITTR 

4 

GLITTR 

5 

GLITTR 

6 

GLITTR 

7 

GLITTR 

B 

GLITTR 

9 

GLITTR 

10 

GLITTR 

11 

GLITTR 

12 

GLITTR 

13 

GLITTR 

14 

GLITTR 

15 

GLITTR 

16 

GLITTR 

17 

GLITTR 

18 

GLITTR 

19 

GLITTR 

20 

GLITTR 

21 

GLITTR 

22 

GLITTR 

23 

GLITTR 

24 

GLITTR 

25 

GLITTR 

26 

GLITTR 

27 

GLITTR 

28 

GLITTR 

29 

GLITTR 

30 

GLITTR 

31 

GLim 

3? 

GLITTR 

33 

GLITTR 

34 

GLITTR 

36 

GLinR 

36 

GLITTR 

r 

GLITTR 

38 

GLITTR 

39 

GLITTR 

40 

GLITTR 

41 

GLITTR 

42 

GLITTR 

43 

GLITTR 

44 

GLITTR 

45 

GLIHR 

46 

GLITTR 

47 

GLITTR 

48 

GLITTR 

49 

GLITTR 

50 

GLITTR 

51 

GLITTR 

52 

GLITTR 

53 

GLITTR 

54 

GLITTR 

55 

GLITTR 

56 

GLITTR 

57 

GLITTR 

58 

260 


c 

-  2,  IF  SOUPCE  IS  FIREBALL 

GLITTR 

59 

c  * 

*  OUTPUT  PARAMETERS 

GLlTTR 

60 

c 

ARGUMENT  LIST 

GLITTR 

61 

c 

SFR  -  F  SUB  R  (2,0{2).ZLAM.THETAI.TMETAR)  (1/SR) 

GLITTR 

62 

c 

-  BIDIRECTIONAL  REFLECTANCE-DISTRIBUTION  FUNCTION 

GLITTR 

63 

c 

FOR  A  WINO-RJ.-FLEO  SURFACE. 

GLITTR 

64 

c 

EPSD  -  (  KO-RWITHETAR:  )  (DIMENSIONLESS) 

GLITTR 

65 

c 

-  directional  EMISSIVITY,  where  RH0(TH£TAR)  is  the 

GLITTR 

66 

c 

specular  REFlEC'ANCE  at  zenith  angle  thftar 

GLITTR 

67 

c 

FOR  A  SMOOTH  HORIZONTAL  SURFACE. 

GLITTR 

68 

c 

POSITN  COMMON 

GLITTR 

69 

c 

(THIS  OUTPUT  OBTAINS  ONLY  IF  SPCULR*.TRUE . ) 

GLITTR 

70 

c 

SPCLAT  -  north  latitude  OF  POINT  ON  SMOOTH  HORIZONTAL 

GLITTR 

71 

c 

SURFACE  FOR  A  SPECULAR  REFLECTION  FROM  THE 

GLITTR 

72 

c 

SOURCE  TO  THE  DETECTOR.  RW51ANS 

GLITTR 

73 

c 

SPCLON  -  EAST  LONGITUDE  OF  POINT  ON  SMOOTH  HORIZONTAL 

GLITTR 

74 

c 

SURFACE  FOR  A  SPECULAR  REFLECTION  FROM  THE 

GLITTR 

75 

c 

SOURCE  TO  THE  DETECTOR.  RADIANS 

GLITTR 

76 

ccc 

GLITTR 

77 

COMMON/POSITN/  POSLAT.POSLON.POSALT.SPCLAT. SPCLON 

POSITN 

2 

S  .C12LAT,C12L0N.C12ALT 

POSITN 

3 

COmON/SOURCE/  SRCLAT.SRCLON.SRCALT.SRCFLG.SRCZEN(ll).SRCSR(n) 

SOURCE 

2 

COHAON /TECTOR/  OETL AT . OETLON .OETALT .OETZE  N . DETA2 1 ( 11 j 

TECTOR 

2 

LOGICAL  SPCULR.ESURFl 

GLITTR 

81 

DATA  PI. RE  /  3.1A159265350O.6.37103E+O3  / 

GLITTR 

82 

DATA  RSUN.EPSILN  /  1 .495979E+O8.4.6524E-03  / 

GLITTR 

83 

cc 

GLITTR 

84 

cc 

NEED  HOT  COMPUTE  SFR  IF  NEITHER  SUN  NOR  FIREBALL  IS  CONSIDERED 

GLITTR 

B5 

cc 

AS  A  SOURCE.  SO  SET  IT  AS  HELL  AS  THE  COORDINATES  OF  THE 

GLITTR 

86 

cc 

SPECULAR  POINT  (ARBITRARILY)  TO  -1.0 

GLITTR 

87 

IF(  (lOAY.FQ.l)  .OR.  (IFIRES.GT.O)  )  GO  TO  8 

GLITTR 

88 

SFR  •  -1.0 

GLITTR 

89 

OTZENP  •  DETZEH 

PL  I  iTT' 

90 

GO  TO  70 

GLITTR 

91 

cc 

GLIHR 

92 

ccc 

GLITTR 

93 

ccc 

FIRST,  FOR  TILTED  FACET  AT  POINT  P.  USE  LEVANON'S  EQUATIONS 

Gl.inR 

94 

ccc 

FOR  TOTAL  TILT  MAGNITUDE  (BETA)  AND  DIRECTION  (THETA, PHI)  AND 

aiTTR 

95 

ccc 

ANGLE  OF  INCIDENCE  (OMEGA).  ME  USE  HIS  EQUATIONS  REWRIHEN  IN 

GLITTR 

96 

ccc 

TERMS  OF  OUR  PARAMETER  EPSA. 

GLITTR 

97 

cc 

GLITTR 

98 

8  EPSA  «  (RE*PQSALT)/(RE+OETALT) 

GLITTR 

99 

cc 

GLITTR 

100 

cc 

THETAP  -  north  LATITUDE  OF  POINT  P  RELATIVE  TO  DETECTOR 

GLITTR 

10! 

THETAP  •  POSLAT-OETLAT 

GLITTR 

102 

CSTHTP  =  cOSlfHETAP) 

GLITTR 

103 

cc 

GLITTR 

104 

cc 

PHIP  •  EAST  LONGITUDE  OF  POINT  P  RELATIVE  TO  DETECTOR 

GLITTR 

105 

PHIP  •  PO5L0N-DETL0N 

GLITTR 

106 

CSPHIP  -  COS(PHIP) 

GLITTR 

107 

cc 

GLITTR 

108 

cc 

PHIL  -  EAST  LONGITUDE  OF  POINT  0-SUB-L  RElATIVE  TO  DETECTOR 

GLITTR 

109 

cc 

(LEVANOH  (LE-71B)  EQ.  (1)). 

GLITTR 

no 

cc 

POINT  D-SUB-L  IS  DEFINED  BY  THE  SEA  SURFACE  AND  A 

GLITTR 

111 

cc 

VECTOR,  starting  FROM  THE  EARTH'S  CENTER.  PARALLEL  TO 

GLinft 

11? 

cc 

THE  ray  from  THE  DETECTOR  TO  THE  REFLECTION  POINT  P. 

GLITTR 

113 

EPTHTP  -  EPSA»CSTHTP 

GLITTR 

114 

261 


PHIL  *  ATAN(  -EPTHTP*SlN(PHIPl/(l.-Ep-mTP«CSPHIP)  ) 

GLITTR 

ns 

cc 

THETAL  =  NORTH  LATITUDE  OF  POINT  Q-SUB-L  RELATIVE  TO  DETECTOR 

GLITTR 

116 

cc 

(LEVANON  EQ.  (?)). 

GLITTR 

117 

ROOT  -  S0RT(  1.0-2.*EPTMTP*CSPHIP+EPTHTP*EPTHTP  ) 

GLITTR 

HR 

THETAL  =  ATAN(  -EPSA*SIN(THETAP)/ROOT  ) 

GLITTR 

119 

CSTHTL  =  COS(THETAL) 

GLITTR 

120 

cc 

GLITTR 

121 

cc 

THETAS  =  north  LATITUDE  OF  SOURCE  RELATIVE  TO  DETECTOR 

GLITTR 

12? 

THETAS  =  .RCLAT-DETLAT 

GLITTR 

123 

CSTHTS  =  COS(THETAS) 

GLITTR 

1?« 

cc 

PHIS  -  EAST  LONGITUDE  OF  SOURCE  RELATIVE  TO  DETECTOR 

GLITTR 

125 

PHIS  »  SRCLON-OETLON 

GLITTR 

126 

cc 

GLITTR 

127 

cc 

PHIN  =  EAST  LONGITUDE  OF  POINT  0-SUB-N  RELATIVE  TO  DETECTOR 

GLITTR 

128 

cc 

(LEVANON  EQ.  (3)). 

GLITTR 

129 

cc 

POINT  Q-SUB-N  IS  DEFINED  BV  THE  SEA  SURFACE  AND  A 

GLITTR 

130 

cc 

VECTOR.  STARTING  FROM  THE  EARTH’S  CENTER.  PARALLEL  TO 

GLinR 

131 

cc 

THE  NOMAL  REOUIRED  FOR  REFLECTION  FROM  POINT  P. 

GLITTR 

132 

AAA  =  CSTHTL*STN  'HIL)  +  CSTHTS»S1N( PHI S) 

GLITTR 

133 

8B8  =  CSTHTL*COS(PHIL)  +  CSTHTS»COS(PHISl 

GLITTR 

134 

PHIN  =  ATAN{  AAA/BBB  ) 

GLITTR 

135 

cc 

THETAN  =  NORTH  LATITUDE  OF  POINT  0-SUB-N  RELATIVE  TO  DETECTOR 

GLITTR 

136 

cc 

(LEVANON  EQ.  (4)). 

GLITTR 

137 

ROOT  =  CSTHTL *CSTHTL  ♦  CSTHTS*CSTHTS  +  2. *CSTHTL •CSTHTS* 

GLITTR 

138 

I  COS(PHIL-PHIS) 

GLITTR 

139 

THETAN  =  ATAN(  (SIN(THETAL)+SIN(THETAS) )/SORT(ROOT)  ) 

GLITTR 

140 

cc 

GLITTR 

141 

cc 

Pill  •  tilt  TOWARD  THE  EAST  AT  THE  REFLECTION  POINT  P 

GLITTR 

14? 

cc 

(LEVANON  EQ.  (5)). 

GLITTR 

143 

PHI  =  PHIN-PHIP 

GLITTR 

144 

cc 

THETA  -  TILT  TOWARD  THE  NORTH  AT  THE  REFLECTION  POINT  P 

GLITTR 

145 

cc 

(LEVANON  EQ.  (6)). 

GLIHR 

146 

THETA  '  THETAN-THETAP 

GLITTR 

147 

cc 

GLITTR 

148 

cc 

BETA  •  total  tilt  MAGNITUDE  AT  THE  REFLECTION  POINT  P 

GLIHR 

149 

cc 

(LEVANON  EQ.  (7)). 

GLITTR 

150 

ROOT  =  TAN(THETA)**2  +  TAN(PHI)»«2 

GLITTR 

151 

BETA  =  ATAN(  $C|RT(ROOT)  ) 

GLITTR 

15? 

cc 

GLITTR 

153 

cc 

OMEGA  =  ANGLE  OF  INCIDENCE  AT  REFLECTION  POINT  P 

GLITTR 

154 

cc 

(LEVANON  EQ.  (8)). 

GLITTR 

155 

ROOT  =  TAN(THETAN-THETAS)**2  ♦  TAN(PHIN-PHI5)**2 

GLITTR 

156 

OMEGA  =  ATAN(  SORT(ROOT)  1 

GLinP 

157 

cc 

GLITTR 

158 

cc 

51GSQ  =  mean  square  slope  regardless  of  DIRECTION 

GLITTR 

158 

SIGSO  =  (3.0  *  5.1?*HINO)*1.C-03 

GLITTR 

150 

cc 

GLIHR 

161 

cc 

SMALLP  •  PROBABILITY  FOR  OCDJRRENCE  OF  SLOPE  BETA 

GLITTR 

16? 

TBETA  =  TAN(BETA) 

GLITTR 

162 

SMAlLP  =  E*P(  -TBETA*TBETA/5IGS0  )/(Pl*SIGSO) 

GLITTR 

164 

cc 

GLITTR 

165 

CALL  FRESNL(ZLAM, OMEGA, RHO) 

GLPTR 

166 

cc 

NOW  HAVE  FRESNEL  MONOCHROMATIC  REFLECTANCE  (RHO) 

GLITTR 

16’ 

cc 

GLITTR 

168 

cc 

IN  COMPUTING  SFR.  TO  AVOID  POSSIBLE  DIVISION  BY  ZERO  OR 

GL I TTR 

168 

cc 

NEAR-ZERO  IF  THETAI  OR  OETZEN  EXCEEDS  AN  ARBITRARILY- 

GLITTR 

170 

cc 

SELECTED  value,  89. R  deg.,  RESET  THETAI  AND/OR  DETZEN  TO  89.9 

Gl  I  TTR 

17] 

t  hi? 


cc 

DEG.  DEFINE  TEMPORARY  VARIABLES  TO  AVOID  ALTERING 

GLITTR 

172 

cc 

ORIGINAL  VARIABLES. 

GLITTR 

173 

IMARN  •  0 

GLITTR 

174 

TRTAIP  •  TNETAI 

GLITTR 

175 

OTZENP  =  DETZEN 

GLIHR 

176 

PIO?  ■  0.50*PI 

GLITTR 

177 

OELTHl  =  PI02-THETAI 

GLIUR 

178 

DELTHR  =  PI02-DETZEN 

GLITTR 

179 

IF(  OELTHl. GE.1.745E-03  )  GO  TO  101 

GLITTR 

180 

THTAIP  =  PID2-1.745E-03 

GLITTR 

181 

IHARN  -  1 

GLITTR 

182 

101 

1F(  DELTHR. GE.1.745E-03  )  60  TO  102 

GLITTR 

183 

DTZENP  •  PI02-1.745E-03 

GLITTR 

184 

tWARN  •  1 

GLITTR 

136 

102 

1F(  IHARN. EQ.O  )  GO  TO  104 

GLITTR 

186 

CC 

HRITE{6,103) 

GLITTR 

187 

103 

FORMAT  (1H0,9Y,44H  **•  NOTE  **♦  FROM  SUBROUTINE  GLITTR 

♦«  / 

GLITTR 

188 

1  IOX.SSHTHETAI  OR  DETZEN  EXCEEDS  AN  ARBITRARILY-SELECTED 

VALUE,/ 

GLITTR 

189 

2  10X,55H89.9  DEGREES,  TO  WHICH  THETAI  OR  DETZEN  HAS  SEEN  RESET  7 

-JILITTR 

190 

3  lOX.SSHTO  AVOID  POSSIBLE  DIVISION  BY  ZERO  OR  NEAR-ZERO 

IN  / 

flLITTR 

191 

4  lOX.lSHCOMPUTING  SFR.  / 

GLITTR 

192 

5  10X.30HUSER  SHOULD  VERIFY  THAT—  / 

GLITTR 

193 

6  lOX.ESH  (1)  THE  CODE  HAS  A  PROPER  VALUE  OF  THETAI  OR 

DETZEN  / 

GLITTR 

194 

7  10X.20H  AND.  IF  SO.  / 

GLITTR 

195 

8  10X,55H  (2)  WHETHER  OR  NOT  RESETTING  OF  THETAI  OR  DETZEN  / 

GLITTR 

196 

9  10X,40H  TO  89.9  DEGREES  IS  SATISFACTORY.  ) 

GLITTR 

197 

CC 

GLITTR 

198 

104 

SHADOW  *  1.0 

GLITTR 

199 

1F(  HIND. EQ. 0.0  )  GO  TO  107 

GLITTR 

200 

CC 

SHADOW  •  SHADOWING  FACTOR  BASED  ON  WORK  OF  SAUNDERS 

(SA.67. 

GLITTR 

201 

CC 

SA-68C)  BUT  EXTENDED  TO  PERMIT  A  BI5TATK  DEPENDENCE 

GLinR 

202 

CC 

ON  THE  ZENITH  ANGLES  OF  BOTH  INCOMING  AND  OUTGOING 

GLITTR 

203 

CC 

RAYS 

GL i TTR 

204 

PISQ  =  SOfiT(  PI  ) 

GLITTR 

205 

SIGS  •  SORT(  5.12E-03*WIHD  ) 

GLITTR 

206 

THETV2  .  ATAN2(  0.50, SIGS  ) 

GLITTR 

207 

cc 

THnV2  IS  THE  ZENITH  ANGLE  BELOW  WHICH  ESSENTIALLY 

GLITTR 

208 

cc 

NO  SHADOWING  OCCURS. 

GLITTR 

209 

SOFSVI  •  1.0 

GL 1 TTR 

210 

IF(  THETAI. LT.THETV2  )  GO  TO  105 

GLITTR 

?n 

SVI  =  1.0/(SIGS»TAN(THTAIP)) 

Glittr 

212 

SOFSVI  *  2.0/(1.0+ERF{SVl)+EXP(-SVl‘SVI)/{PI50*SVl)l 

Glittr 

213 

105 

1  SOESVR  *  1.0 

glittr 

214 

IF(  DETZEN. LT.THETV2  )  GO  TO  106 

Glittr 

215 

SVR  •  1.D/(SIGS*TAN(DTZENP)) 

glittr 

216 

SOFSVR  ■=  2.0/(1.0+ERF{SVR)+EXP(-SVR*SVR)/(PI50*SVRn 

Glittr 

217 

106 

1  SHADOW  =  SOFSVI ‘SOFSVR 

Glittr 

218 

CC 

Gi  !TTP 

219 

107 

SFR  .  D.25»RHO*SMALLP/(COS(DTZENP)»COS(T>ITAIP)) 

Glittr 

220 

SFR  =  SFR*SHAOOW/COS(BETA)*‘4 

G, ITTR 

221 

CC 

Glittr 

222 

cc 

glittr 

??T 

cc 

GLITTR 

224 

1F(  .NOT.SPCULR  )  GO  TO  70 

glittr 

225 

CC 

GLI'TTP 

226 

ccc 

formulas  for  spclat  and  spclon  *•*••••••*« 

«  «  •  •  1 

^  GLl’T'TP 

2?7 

CC 

GL  I  TTR 
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CC  ALP  -  TOTAL  EARTM-CENTHAL  AH6LE  BETVEEH  PATS  TO  DETECTOR 

CC  AND  SOURCE. 

ALP  •  CAHGLE(OETLAT.OETLON.SRCLAT,SRCLOK) 

KFLS  •  SRCFLS+0.05 
60  TO  (10.12),  KFlG 

CC  SET  EPSS  FOR  SUN  BEING  SOURCE. 

10  EPSS  «  (RE+POSALT)/RSUN 
GO  TO  14 

CC  SET  EPSS  FOR  FIREBALL  BEING  SOURCE. 

12  EPSS  •  (RE+POSALT)/(R£+SRCALT) 

C  •  *  • 

C  •  •  *  START  OF  ITERATIVE  PROCEDURE  FOR  THE  SOLUTION  OF  THE 
C  reflection  point  (in  terms  of  ALPA  and  ALPS). 

C  TWE  METHOD  USED  !S  NtWTON-RAPHSON. 

C  •  *  * 

14  KOUNT  •  0 

FACT  •  (1.0-EPSA)/((1.0-EPSA)+(1.0-EPSS)) 

C  THE  INITIAL  GUESS  FOR  ALPA  IS  GIVEN  BY  FACT*ALP 

ALPA  -  FACT»ALP 
16  KOUNT  *  KOUNT+1 
ALPS  -  ALP-ALPA 

BETA  -  ATAH(  EPSA»S1N(AUPA)/(1.0-EPSA*COS(ALPA))  ) 

BETS  •  ATAN(  EPSS*SIN{ ALPS)/(1 .0-EPSS»COS( ALPS) )  ) 

C  CALCULATE  F(ALPA),  FOFA,  AMO  F  PRIME(ALPA).  FOFAP 

FOFA  •  ALP-2.*ALPA+flETS-BETA 
001  •  1.0  +  EPSS*(EFSS.2.'*C0S(ALPS)) 

002  -  1.0  »  EPSA*(EPSA-2.*C0S{AlPA)) 

FOFAP  •  EPSS*(EPSS-COS(ALPS))/D01  -  2.0 
FQFAP  •  EPSA»(EPSA-C0S( ALPA)) 2002  +  FOFAP 
DELTA  .  (ALPA*B£TA)-(ALPS+eETS) 

C  UPDATE  ALPA  - 

C  ALPA  NEW  *  ALPA  OLD  -  F(ALPA  OLD)/F  PRllt(  ALPA  OLD) 

ALPA  «  ALPA-FOFA/FOFAP 

C  CHECK  FOR  SOLUTION  OR  IF  NUMBER  OF  ALLOWED  ITERATIONS 

C  HAS  BEEN  EXCEEDED 

1F{  ABS(DELTA).LE.2.0E-05  )  GO  TO  18 
IF(  KOUNT. GE. 100  )  GO  TO  18 
GO  TO  16 

C  *  ♦  * 

C  •  *  *  END  OF  ITERATIVE  PROCEDURE. 

C  *  •  * 

la  ALPS  •  ALP-ALPA 
ALPSO  •  ALPS*1B0./PI 
ALPAD  •  ALPA*ieO./PI 
HRITE(6,5)  ALPAO.ALPSO.KOUNT.EPSA.EPSS 
5  FORMA"  (12H0  ALPHA  A  •,F12.4.5X,11H  ALPHA  S  -.FI?  V5X,I5, 

*  12H  'TERATI0NS.5X,6H  EPSA=,E12.4.5X.6H  EPS5*,tl2.4) 

CALL  GCRCuE(OETLAT,OETLON,SRCLAT,5RCLON,ALP,ALPA.5PCLAT,SPCLON) 
CC  NOW  HAVE  SPCLAT  AND  SPCLON 

CC 

GO  TO  BO 
70  SPCLAT  •:  -1.0 
SPCLON  •  -1.0 

80  IF(  .NOT.ESURFl  )  RETURN 
CC 

CCC  FORMULAS  FOR  EPSD 

CC 

CALL  FRESNL(2LAM,DTZENP.RH0) 

CC 

CC  COMPUTE  EPSD 

EPSD  »  l.O-RHO 
RETURN 
END 


6LTTTR  S29 
GLITTS  230 
GLITTR  231 
GLITTR  232 
GLITTR  233 
GLITTR  234 
GLITTR  235 
GLITTR  236 
GLITTR  237 
GLITTR  258 
GLITTR  239 
GLITTR  240 
GLITTR  241 
GLITTR  242 
GLITTR  243 
GLITTR  244 
GLITTR  24S 
GLITTR  246 
GLITTR  247 
GLITTR  243 
GLITTR  249 
GLITTR  250 
GLITTR  251 
GLITTR  252 
GLITTR  253 
GLITTR  254 
GLITTR  255 
GLITTR  256 
GLITTR  257 
GLITTR  258 
GLITTR  259 
GLITTR  260 
GLinR  261 
GLITTR  262 
GLITTR  263 
aiTTR  264 
GLITTR  265 
GLITTR  266 
GLITTR  267 
GLITTR  268 
GLim  269 
GLITTR  270 
GLITTR  271 
GLITTR  272 
GLITTR  273 
GLITTR  274 
GLITTR  275 
GLITTR  276 
GLITTR  277 
GLITTR  ??8 
GLITTR  279 
GLITTR  2B0 
GLITTR  2P) 
GLITTR  28? 
GLITTR  2B3 
GLITTR  281 
GLITTR  285 
GLITTR  286 
GLITTR  2R7 
GLITTR  288. 
GLITTR  289 
GLITTR  ?90 
GLITTR  791 
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SUBROUTINE  PATH!  FIRST,  ISHELL,  OS.  XFRACS  ) 

PATH 

2 

c 

PATH 

3 

c 

*PATW*  DEVELOPS  THE  PATH  INTEGRALS  FOR  ATWSPHERIC  ABSORPTION. 

PATH 

4 

c 

PATH 

S 

CLJ 

PATH 

6 

CLJ 

INPUT  PARAMETERS 

PATH 

7 

CLJ 

ARGUMENT  LIST 

PATH 

8 

CLJ 

first  *  LOGICAL  INITIALIZATION  SWITCH 

PATH 

9 

CLJ 

■=  .TRUE.  FOR  FIRST  CALL  (I.E.,  CORRESPONDING  TO 

PATH 

10 

CLJ 

PATH  FROM  RX  TO  RY  IN  TUNSCO) 

PATH 

11 

CLJ 

«  .false,  for  subsequent  calls  (I.E.,  CORRESPONOING 

PATH 

12 

CLJ 

TO  path  from  RY  TO  RZ  IN  TRNSCO) 

PATH 

13 

CLJ 

rSHELL(l)  *  INDX(I)  IN  CALL  FROM  TRNSCO  OR  SURP.AD 

PATH 

14 

CLJ 

ISHaLIZ)  •  1NDX(I+1)  IN  CALL  FROM  TRNSCO  OR  SURRAD 

PATH 

15 

CLJ 

OS  »  OSd+l)  IN  CALL  FROM  TRNSCO  OR  SURRAD. 

PATH 

16 

CLJ 

NOTE...  IT  IS  ALWAYS  TRUE  THAT  DS(1)«0.0  AND 

PATH 

17 

CLJ 

OS(NC+l)=-l.,  WHERE  NC  IS  THE  NUMBER  OF  PATH 

PATH 

18 

CLJ 

SEGMENTS  PLUS  ONE.  ATMRAO  WILL  NOT  BE  CALLED 

PATH 

19 

CLJ 

WITH  !*NC. 

PATH 

20 

CLJ 

XFRACS(l)  *  XRACS(l)  IN  CALL  FROM  TRNSCO  OR  SURRAD 

PATH 

21 

ClJ 

XFRACS(2)  -  XFRACS(I+1)  IN  CALL  FROM  TRNSCO  OR  SURRAD. 

PATH 

22 

CLJ 

NOTE.  THIS  ARRAY  XFRACS  (DIMENSIONED  2)  IS  NOT  THE 

PATH 

23 

CLJ 

SAME  AS  THE  ARRAY  XFRACS  (DIMENSIONED  I^)  IN 

PATH 

24 

CLJ 

SUBROUTINES  STEP.  STEPS,  AND  TRNSCO. 

path 

25 

CLJ 

(  SEE  NOTE  IN  SUBROUTINE  ATWAD  ) 

PATH 

26 

CLJ 

XYZCOM  COMMON 

PATH 

27 

CLJ 

NS  •  NUMBER  OF  ALTITUDE  BOUNDARIES 

PATH 

28 

CLJ 

TS(J)  •  TEMPERATUF'  AT  ALTITUDE  BOUNDARY  J.  DEG  K  (J«1,HS) 

PATH 

29 

CLJ 

PSiJ)  •  PRESSURE  AT  ALTITUDE  BOUNDARY  J.  ATM  (0«1,NS) 

PATH 

30 

CLJ 

XHSPEC(J,N)  •  SPECIES-N  DPrSITY  AT  ALTITUDE  BOUNDARY  J,  1/CM**3 

PATH 

31 

CLJ 

(J*1,NS  .  N»1.10) 

PATH 

32 

CLJ 

OUTPUT  PARAMETERS 

PATH 

33 

CLJ 

XYZCOM  COMMON 

PATH 

34 

CLJ 

Ud.N.Z)  •  CUMULATIVE  VALUE  OF  PATH  PARAMETER  U  {AREAL 

PATH 

35 

CLJ 

DENSITY)  FOR  TEMPERATURE- INDEX  1  AND  SPECIES  H  AT 

PATH 

36 

CLJ 

END  OF  LINE  SEGMENT  OS,  CM  AT  STP 

PATH 

37 

CLJ 

UPd.N.Z)  -  CUMULATIVE  value  OF  PATH  PARAMETER  UP  (PRODUCT  OF 

PATH 

38 

CLJ 

U  WO  PRESSURE  P)  FOR  TEMPER INDEX  I  AND 

PATH 

39 

CLJ 

SPECIES  H  AT  END  OF  LINE  SEGMENT  DS,  ATM-CM 

PATH 

40 

CLJ 

AT  STP  FOR  U  AND  UP  (1*1,2  .  N-1,10) 

PATH 

41 

CLJ 

PATH 

4? 

DIMENSION  XNSldO),  XNS2(10).  0U(10,10).  OUPdO.lO),  ISHaL(2), 

PATH 

43 

1  XFRACS(2) 

path 

44 

COMMON  /  XYZCOM  /  I7MTE,  LTMTE,  NS.  HSHaL(8l).  TS(eJ).  PS(8I). 

path 

45 

1  XNSPEC(81.10),  U(10.10.2),  UP(1D,10.2),  »*«LS, 

PATH 

46 

2  FACT 

path 

47 

C 

path 

48 

LOGICAL  FIRST 

PATH 

49 

c 

PATH 

50 

CLJ 

XINTRP  IS  AN  ARITHMETIC  STATEMENT  FUNCTION  FOR  LINEAR 

PATH 

51 

CLJ 

INTERPOLATION,  RETURNING  THE  VALUE  XINTRP  AT  A  RACTIONAL 

PATH 

5? 

CLJ 

DISTANCE  (l.-XFRAC)  BETWEEN  ENO-POINT  VALUES  ZI  AND  ZP. 

PATH 

53 

CLJ 

PATH 

54 

XINTRP(  Zl,  Z2  )  •  Zl  •  XFRAC  ♦  Z?  *  (  1.  -  XFRAC  ) 

PATH 

55 

C 

PATH 

56 

IF  (  .not.  FIRST  )  GO  TO  1 

PATH 

57 

C 

INITIALIZATIONS 

PATH 

58 

265 


CLJ 

CLJ 


C 

CLJ 

CLJ 

CLJ 


NOW  ZERO  SECOND*MALVES  OF  U  AND  UP  ARRAYS,  WHICH  IS  WHERE  WE 
ACCU«ULA''E  OUR  OUTPUT  RESULTS  FOR  THESE  ARRAYS. 

CALL  XWIT  (  -100,  0.,  ) 

CALL  XMIT  (  -100,  0..  UPd.l.Z)  ) 

1  LI  •  ISHELLCn 
LZ  •  ISHELLI?) 

srr  SIELL  PROPERTIES  AT  FIRST  POINT 

NOW  TRANSFER  SECOW)- HALVES  OF  U  AND  UP 

t.E.  INITIALIZE  THE  STARTING  POINT  OF  THE  SECOND  lFG  TO 

values  at  end  of  first  leg  of  path, 
call  xhit  ;  100,  u(i,i,2),  u  > 

CALL  XHIT  (  100,  UPd.l.Z).  UP  ) 

IF  (  L?  .EO.  0  )  RETURN 

INTERPOLATE  FOR  P,  T,  AND  C(SPECIES)  AT  FIRST  POINT 
XFRAC  '  XFRACS(n 


PSLl 

TSLl 


TSLl 
DO  3 


PS(Ll) 

TSai) 

IF  (  XFRAC  .£0.  1.  )  60  TO  2 
PSLl  -  XINTRP(  PS(Ll).  PS(L2)  ) 

XIKTRP'  TS(Ll).  TS(L2)  ) 

N'1.10 

IF^('xreAc'^'!Eo!*'d^’'!«.  XMSPEC(Ll.N)  *  XNSPEC(L2,N)  .EO.  0.  ) 
1  GO  TO  3 

XNSl(N)  -  XINTRP(  XNSPEC(L1,H),  XNSPEC(L2.N)  ) 

3  C(SPECIES)  AT  SECOND  POINT 
XFRAC  •  XfRACS(21 

PSL2  -  PS(L2) 

TSL2  =  TS(L2l 

IF  (  XFRAC  .EO.  1.  )  GO  TO  4 

PSL2  •  XINTRPI  PS(L2).  PS(Ll)  ) 

TSL2  •  XINTRpj  TS(LZ).  TS(Ll)  ) 

4  DO  5  Hd,10 
XNS2(N)  •  XNSPEC(L2.N) 

IF  {  XFRAC  .EQ.  1.  -OR. 

i  GO  TO  5 


XNSPEC(L1,N)  ♦  XNSPEC{L2,N)  .ED.  0.  1 


XINTRPC  XNSPEC(L2,N),  XHSPEC(L1,N)  ) 


xnS2(n; 

5  CONTINUE 

CONPIJTE  differential  U  AND  UP 
CALL  SEGMENT  (  10,  0..  XNSl,  PSLl,  TSLl, 
J  OU,  OUP  ) 

ACCUMULATE  U  AND  UP  AT  SECOND  POINT 
00  6  N=1.10 
DO  <■  1=1,2 

Ud,N,2)  •  U(I,N,2)  ♦  0U{1,H) 

UP(I,N,2)  •  UP[1,N.2)  ♦  DUFd.N) 

6  CONTINUE 
RETURN 
END 


OS,  XNS2,  PSL?,  TS12, 


path 

59 

PATH 

60 

PATH 

61 

PATH 

62 

OATH 

63 

path 

64 

PATH 

65 

PATH 

66 

.oath 

67 

PATH 

68 

PATH 

69 

PATH 

70 

PATH 

71 

PATH 

72 

PATH 

73 

PA'^H 

74 

PATH 

75 

PATH 

76 

PATH 

77 

path. 

78 

PATH 

79 

path 

80 

PATH 

8! 

PATH 

82 

PATH 

83 

path 

84 

PATH 

85 

path 

86 

path 

87 

path 

88 

path 

89 

PATH 

90 

path 

91 

path 

92 

PATw, 

93 

path 

94 

path 

95 

PATH 

96 

path 

97 

OATH 

9? 

path 

99 

PATH 

100 

PATH 

101 

path 

102 

PATH 

103 

pA'fH 

104 

PATH 

’.OF 

PATH 

106 

PATH 

I&T 

path 

IDE 

PATH 

100 

PA"H 

110 

('do 


FUNCTION  PLANCK  (  T,  H  ) 

PLANCK 

2 

c 

PLANCK 

3 

c 

•PLANCK*  GIVES  TNE  BLACK  800V  SPECTfUN 

PLANCK 

4 

c 

(  NATTS  CN-?  ST-1  (CM-l)-l  ) 

PLANCK 

5 

c 

PLANCK 

6 

CLJ 

PLANCK 

7 

CLJ 

INPUT  P«ANneR 

PLANCK 

B 

CLJ 

ARGUMENT  LIST 

PLANCK 

R 

CLJ 

T  -  TEMPERATURE,  DEG  K 

PLANCK 

10 

CLJ 

W  •  MAVEMUMBER.  1/CM 

PLANCK 

11 

CLJ 

DATA  STATEMENTS 

PLANCK 

12 

CLJ 

C  *  VELOCITY  OF  LIGHT.  CM/SEC 

PLANCK 

13 

CLJ 

H  -  PLANCK'S  CONSTANT,  J  SEC 

PLANCK 

14 

CLJ 

CHK  •  C*H/K.  CM  OEGREE-K 

PLANCK 

15 

CLJ 

WHERE  K  •  BOLTZMANN  CONSTANT 

PLANCK 

16 

CLJ 

•  1.380662E-Z3  J/(OEGREE-K) 

PLANCK 

17 

CLJ 

OUTPUT  parameter 

PLANCK 

18 

CLJ 

function 

PLANCK 

IP 

CLJ 

PLANCK  •  SPECTRAL  RADIANCE.  UATTS/(CM«?  SR  CM«-1) 

PLANCK 

20 

CLJ 

PLANCK 

21 

DATA  C  /  2.997925E10  /,  CHK  /  1.438786  /,  H  /  6.626176E-34  / 

PLANCK 

22 

CLJ 

PLANCK 

23 

PLANCK  •  0. 

PLANCK 

24 

IF  (  T  .£Q.  0.  )  GO  TO  2 

PLANCK 

25 

Z  •  C*  /  T  •  H 

PLANCK 

26 

IF  (  Z  .GE.  88.  )  GO  TO  2 

PLANCK 

27 

PLANCK  ■=  (  2.  *  C**2  *  H**3  /  (  EKP(2)  -  1.  )  )  •  H 

PLANCK 

28 

CLJ 

PLANCK 

29 

CLJ 

TO  OBTAIN  PLANCK  IN  THE  UNITS  USED  BY  GRC. 

PLANCK 

30 

CLJ 

PH0TDNS/(CH«2  SEC  SR  CM«-1), 

PLANCK 

3! 

CLJ 

DIVIDE  BY  HCU=H*C*«  . 

PLANCK 

32 

CLJ 

PLANCK 

33 

CLJ 

TO  OBTAIN  PLANCK  IN  UNITS  OF  W/(CM««2  SR  MICRON),  MULTIPLY  BY 

PLANCK 

34 

CLJ 

l.E-04»W«  OR  BY  l.E-K)4/(2LAM0A*ZLAMDA)  WHERE  ZLAMOA-1  .E+04/W 

PLANCK 

35 

CLJ 

PLANlk 

36 

2  return 

PLANCK 

37 

END 

PLANCK 

38 

SUBROUTINE  REATAN(SR,EL,AZ.X£,yN.ZV) 

REATAN 

2 

CCC 

REATAN 

3 

C 

subroutine  REATAN  (A  MODIFIED  MARC  ROUTINE  CALLED  REAXY7), 

REA'"  AN 

4 

r 

GIVEN  THE  SLANT  RANGE.  ELEVATION  ANGLE,  AND  AZIMLiTH  ANGLE  OF  A 

REATAN 

5 

c 

POINT  WITH  RESPECT  TO  SOME  REFERENCE  LOCATION,  PROVIDES  THE 

REAT/IN 

6 

c 

TANGENT-PLANE  COORDINATES  Of  THE  POINT  WITH  RESPECT  TO  THE 

REATAN 

7 

c 

SAME  REFERENCE. 

REATAN 

p 

CCC 

REA'"  AN 

Q 

c 

inputs  from  CALL  STATEMENT 

REA’"AN 

10 

c 

SR  *  slant  range  of  point,  cm 

REATAN 

I! 

c 

EL  *  elevation  A“GLE  OF  POINT.  RADIANS 

REATAN 

1? 

c 

AZ  '  AZIMJTH  ANGLE  OF  POINT,  RADIANS 

REATAN 

IT 

c 

output; 

REATAN 

14 

c 

KE  =  X  COORDINATE  OF  POINT,  CM 

REATAN 

15 

c 

YN  =  Y  COORDINATE  OF  POINT,  CM 

REATAN 

15 

c 

ZV  -  2  COORDINATE  OF  POINT.  CM 

REATAN 

1  7 

CCC 

REATAN 

I  ? 

COSEL  «  COSfEL) 

REATAN 

IT 

Xf  -  SR»COSEL*SINlAZ! 

REA'"AN 

20 

YN  .  SR*C05EL*COS(AZ) 

REATAN 

2! 

ZV  .  Sfi*5IN(ELl 

REATAN 

2? 

prTi^iR^ 

p  r  /),  T  R 

->7 

end" 

REATAN 

24 

SUBROUTINE  RINOUT(MAT.IflRE.IOAT) 

RINOUT 

2 

ccc 

RINOUT 

3 

c 

Sl*ROUTlNE  RINOUT.  GIVEN  THE  GEOGRAPHIC  LOCATIONS  OF  THE 

RINOUT 

4 

c 

SOURCES  (SUN  AND/OR  FIREBALLS),  THE  DETECTOR,  AND  THE 

RINOUT 

5 

c 

POSITION  P  OF  THE  INTERSECTION  OF  THE  LINE-OF-SIGHT  FROM  THE 

RINO'JT 

6 

c 

DETECTOR  TO  THE  EARTH'S  SURFACE,  COMPUTES  THE  ZENITH  ANGLES 

RINOUT 

7 

c 

(AND,  FOR  FIREBALLS,  SLANT  RANGES)  OF  SOURCES  FROM  P  AND  THE 

RINOUT 

8 

c 

DIRECTION  OF  THE  RAY  FROM  F  TO  DETECTOR  IN  TERMS  OF  ZENITH 

RINOUT 

9 

c 

ANGLE  OF  THE  DETECTOR  AND  (IF  THE  SURFACE  IS  NOT  LAMBERTIAN 

RINOUT 

1C 

c 

(MAT*1)  OR  HATER  (MAT=2))  THE  ABSOLUTE  VALUE  OF  THE  AZIMUTH 

RINOUT 

11 

c 

ANGLE  OF  SCAHER  WITH  RESPECT  TO  THE  PRINCIPAL  PLANE 

RINOUT 

12 

c 

CONTAINING  THE  INCOMING  RAY. 

RINOUT 

13 

ccc 

RINOUT 

14 

ccc 

INPUT  P.ARAMETERS 

RINOUT 

15 

c 

argument  list 

RINOUT 

16 

c 

IFIRE  *  NUMBER  OF  FIREBALLS  TO  BE  CONSIOERED  AS  SOURCES 

RINOUT 

17 

c 

(ALWAYS  ZERO  IN  HBR  MODULE) 

RINO'JT 

18 

c 

MAT  •  INDEX  FOR  CATEGORY  OF  SURFACE  MATERIAL 

RINOUT 

19 

c 

-  1,  LAMBERTIAN  DIFFUSE  SURFACE  •  2,  HATER 

RINOUT 

20 

c 

-  3.  SHOW  «  4,  SAND  -  5.  SOIL  *  6.  FOLIAGE 

RINOUT 

21 

c 

*  7.  URBAN  material 

RINOUT 

22 

c 

TECTOR  COMMON 

RINOUT 

23 

c 

DETLAT  -  north  latitude  of  DETECTOR  SUBPOINT,  RADIANS 

RINOUT 

24 

c 

OETLON  -  EAST  longitude  OF  DETECTOR  SUBPOINT,  RADIANS 

RINOUT 

25 

c 

OETALT  -  ALTITUDE  OF  DETECTOR,  KM 

RINOUT 

26 

c 

FIRBAL  CCmiN  (NOT  USED  IN  NBR  MODULE) 

RINOUT 

27 

c 

FBLAi(L)  -  NORTH  LATITUDE  OF  FIREBALL-L,  RADIWS 

RINOUT 

28 

c 

F8L0N(L)  -  FAST  LONGITUDE  OF  FIREBALL-L,  RADIANS 

RINOUT 

29 

c 

FBALT(L)  -  ALTITUDE  OF  FlREBALL-L,  KM 

RINOUT 

30 

c 

FBHINT(L)  -  RADIANT  INTENSITY  OF  FIREBALL-L,  HATTS/SEC 

RINOUT 

31 

c 

POSITN  COFfON 

RINOUT 

32 

c 

POSLAT  -  NORTH  LATITUDE  OF  INTERSECTION  POINT  OF  LINE-Of- 

RINOUT 

33 

c 

SI6HT  FROM  DETECTOR  TO  EARTH'S  SURFACE,  RADIANS 

RINOUT 

34 

c 

POSLON  -  EAST  LONGITUDE  OF.  INTERSECTION  POINT  OF  LINE-OF- 

RINOUT 

35 

c 

SIGHT  FROM  detector  TO  EARTH'S  SIAIFACE.  RADIANS 

RINOUT 

36 

c 

POSALT  -  ALTITUDE  OF  INTERSECTION  POINT  OF  LINE-OF-SIGhT 

RINOUT 

37 

c 

FROM  DETECTOR  TO  EARTH'S  SURFACE,  KM 

RINOUT 

38 

c 

SOLARP  CO»«N 

RINOUT 

39 

c 

SOLLAT  -  NORTH  LATITUDE  OF  SUBSOlAR  POINT,  RADIANS 

RIMOLU 

40 

c 

50LL0N  -  EAST  LONGITUDE  OF  SUBSOlAR  POINT,  RADIANS 

RINOIJT 

41 

ccc 

OUTPUT  PARAMETERS 

pinout 

42 

c 

ARGUMENT  list 

PINOUT 

43 

c 

IDAY  -  INDEX  FOR  DAYLIGHT  CONDITIONS  AT  POINT  P 

RINOUT 

44 

c 

■0  IF  SOLAR  ZENITH  ANGLE  ,GT.  90,  DEGREES 

RINOUT 

45 

c 

*1  IF  SOLAR  ZENITH  ANGLE  .LE.  90.  DEGREES 

RINOUl 

46 

c 

TECTOR  COMMON 

RINOUT 

47 

c 

OETZFN  -  ZENITH  ANGLE  OF  RAY  REFLECTED  AT  POINT  P  TOWARD 

RIIPOUT 

48 

c 

THE  DETECTOR.  RADIANS 

RINOUT 

49 

c 

DETAZI(l)  -  ABSOLUTE  VALUE  OF  AZIMUTH  OF  REFLECTED  RAY, 

RINOUT 

50 

c 

MEASURED  FROM  PRINCIPAL  PLANE  DETERMINED  BY 

RINOUT 

51 

c 

VERTICAL  PLANE  THROUGH  INCOMING  RAY  FROM  SUN, 

RINOUT 

5? 

c 

RADIANS 

PINOUT 

53 

c 

DETAZI(L+1),  L-1, IFIRE  (NOT  USED  IN  NBR  MODITE) 

RINOUT 

54 

c 

-  ABSOLUTE  VALUE  Of  AZIMUTH  OF  REFLEC'iED  RAY, 

RINOUT 

55 

c 

MEASURED  FROM  PRINCIPAL  PLANE  DETERMINED  BY 

PINO  in 

56 

c 

VERTICAL  plane  THROUGH  INCOMING  RAT,  RADIANS 

RINOUT 

57 

c 

SOURCE  COEtCN 

RINOUT 

58 

268 


c 

SRCZENd)  -  ZEKITH  «*Glf  OF  RAT  IITCOHiNG  TO  POINT  P  FRON 

RINOUT 

59 

c 

THE  SUN.  RADIANS 

RINOUT 

60 

c 

SRCZEN(Ld).  l-l, IFIRE  (HOT  USED  IN  NBR  NODULE) 

RINOUT 

61 

c 

-  ZENITH  ANGLE  OF  RAT  INCONIHG  TO  POINT  P  FROM 

RINOUT 

62 

c 

FIREBALL-L,  RADIANS 

RINOUT 

63 

c 

SRCSfi(L+l).  1*1. IFIRE  (NOT  USED  IN  NBR  NODULE) 

RINOUT 

64 

c 

-  SLANT  RANGE  FRON  F1HE3AIL-L  TO  POINT  P.  KN 

RIHO'JT 

6S 

ccc 

RINOUT 

66 

COFWON/FIRBAL/  FBLATaO),F8LOM(10).FBALT(10).FBRlNT(10) 

FIRBAL 

2 

COWN/POSITN/  POSLAT.POSLON.POSALT.SPaAT.  SPCLON 

posm 

2 

i  .C12LAT.C12l0N,CTZALT 

POSITN 

3 

CO»*eN/SATELL  /  SATLAT,  SATLON ,  SATALT.  SATZEn  ,  SATAZ I 

SATELL 

2 

COPHOH.'SOLAfiP/  SOLLAT,SOLLOH.SOLIRR(10) 

SOLARP 

2 

COHiOH/SOURCE/  SRCLAT,SRCL0H,SRCALT.SRCFLG,SRC2EN(ll).SRCSfi(n) 

SOURCE 

2 

COm)N/TECTOR/  DETL  AT ,  DETLON .  OETALT ,  OETZEN.  0ETA2 1(11) 

TECTOR 

2 

DATA  PI, RE  /  3.1A1592653590.6.371O3E«<13  / 

RINOUT 

73 

ccc 

RINOUT 

74 

c 

UPON  BEING  CALLED  FRON  SUBROUTINE  SURRAD  INITIALLT  WITH 

RINOUT 

75 

c 

lFlRE-0  (EVEN  THOIXH  IFIRES  .GT.  0).  RINOUT  DECIDES  WHETHER 

RINOUT 

76 

c 

THE  SUN  CAN  BE  A  SOURCE,  DEPENDING  OH  ITS  ZENITH  ANGLE. 

RINOUT 

77 

ccc 

RINOUT 

78 

IF(  IFIRE. GT.O  )  GO  TO  20 

RINOUT 

79 

SINSIN  -  SIH(POSLAT)*S!N(SOLLAT) 

RINOUT 

80 

COSCOS  -  COS(POSLAT)«COS(SOLLAT) 

RINOUT 

81 

CSSQLZ  »  SINSIN  +  COSCOS*COS(POSLON-SOLLON) 

RINOUT 

B2 

lOAT  .  0 

RINOUT 

83 

1F(  CSSOLZ.lt. 0.0  )  GO  TO  10 

RINOUT 

84 

lOAT  -  1 

RINOUT 

85 

SfiCZEN(l)  .  ACOS(  CSSOlZ  ) 

RINOUT 

86 

10  CONTINUE 

RINOUT 

87 

cc 

RINOUT 

88 

cc 

COMPUTE  DETECTOR  ZENITH  .ANaE.  OETZEN.  AND,  IF  NAT  .GT.  2  AND 

RINOUT 

69 

cc 

I0AY»1.  THE  DETECTOR  AZIHUTH  ANGLE  FOR  SUN,  DETAZId). 

RINOUT 

90 

cc 

ALPHAD  »  EARTH-CENTRAL  AN^E  BETWEEN  RAYS  TO  DETECTOR  AND 

RINOUT 

91 

cc 

LlNE-OF-SIGHT  ISTERSECTr.ie  POINT 

RINOUT 

92 

ALPHAD  •  CAH6LE(OETLAT,OETLOH,POSLAT,POSLON) 

RlHCn.iT 

53 

EPSO  •  (RE*POSALT)/(RE+OtTALT) 

RINOUT 

94 

CO  •  (1.0-EPSD)/(l.O+£PS0) 

RINOUT 

95 

CO  •  2.0»ATAN(  Cl)/TAN(ALPHAD/2.)) 

RINOUT 

96 

BETAO  •  0.5»(PI-ALPHAD-CD) 

RINOUT 

97 

OETZEN  =  ALPHAD+BETAD 

RINOUT 

9? 

1F(  (IDAY.EQ.O)  .OR.  (NAT.LE.2)  )  RHURN 

RINOUT 

99 

cc 

RINOUT 

100 

cc 

SET  SUN  INTO  SOURCE  COORDINATES. 

RINOUT 

ICl 

SRCLAT  •  SOLLAT 

RINOUT 

102 

SRCLON  •  SOLLON 

RINOUT 

103 

GO  TO  40 

RINOUT 

105 

20  L-1 

RINO'U" 

105 

cc 

RINOUT 

106 

cc 

SET  FIREEALL-L  INTO  SOURCE  COORDINATES. 

RINOUT 

107 

30  SRCLAT  .  FBLAT(L) 

RINOUT 

108 

SRCLON  .  F8L0N(L) 

RINOUT 

1C9 

SRCALT  .  FBALT(L) 

RINOU’’ 

119 

cc 

RINOUT 

111 

IF(  NAT.lE.2  )  GO  TO  60 

RINOUT 

11? 

cr. 

RINOUT 

113 

cc 

START  CALCULATION  OF  DETAZId)  OR  OETAZHL*!),  (L-).IFIBd 

RINOUT 

114 

269 


40  SIWIP  •  COC(  POSLAT  ) 

R!NO"T 

115 

COSNP  -  SIN(  POSLAT  ) 

RINOUT 

1!6 

COSHS  -  SIN(  SRCLAT  ) 

RINOUT 

117 

SINNS  -  cost  SXCLAT  ) 

RINCJI 

lie 

TUOPI  •  PI+Pl 

RINOUT 

119 

PN5  -  ABS(  SRCLOTt-POSLOH  ) 

.;INOUT 

1?0 

tF(  PUS.GE.PI  )  PNS  »  TMOPI-PNS 

RINOirr 

1?1 

SIAPWS  -  SINt  PUS  ) 

RINOUT 

1?? 

PS  ■  CAIteLE(POSLAT,POSLO«, SRCLAT. SRCLOtl) 

RINOUT 

1?3 

sinqsN  -  simp»siNPi*s/S!N(  ps  ) 

RINO'JT 

1?4 

cc 

SOKE  numerical  PRECAUTIONS  ARE  NECESSARY. 

RINOUT 

l?s 

ABSQSN  ■  ABS(  SINOSN  ) 

RINOUT 

l?6 

A8S0NE  *  ABSqSN-l.O 

RINOUT 

1P7 

1F(  (ABSOSN.GT.1.0)  .m.  (A8S0NE.LE.1.OE-1O)  ) 

RINOin 

1?8 

*  SINQSN  »  SlSNt  l.O.SINQSN  ) 

RINO'JT 

1?9 

QSN  *  AS1N(  SINOSN  ) 

RINOUT 

130 

COSNPR  =  COSNS*COS(  PS  ) 

RINO'JT 

131 

IF(  COSNP.lt. COSNPR  )  OSN  ’  Pl-QSN 

Riwirr 

132 

COSOSN  •  cost  OSN  ) 

RINOUT 

133 

ONS  •  ABS(  SRCLON-DETLON  ) 

RINOUT 

134 

IFt  QNS.GE.Pl  )  ONS  «  TEIOPI-QHS 

RINOUT 

135 

COSQNS  *  cost  ONS  ) 

RINOUT 

136 

SINQNS  =  SINt  ONS  ) 

RINOUT 

137 

RNQ5  •  ACOSt  SINONS*SINQSN*COSNS  -  COSQ»IS*COSQSN  ) 

RINOUT 

138 

SIKNOS  *  SINt  RNOS  ) 

RINOUT 

139 

ON  =  ASINt  SINOSN'SINNS/SINNQS  ) 

RINOUT 

lAO 

CSQSHR  «  -COSONS-COSt  KNQS  ) 

RINOUT 

141 

IF(  COSOSN. LT.CSOSNR  )  ON  *  PI-ON 

RINOUT 

142 

SINAQ  -  cost  QN+OETLAT  ) 

RINO'JT 

143 

P5I  •  ASINt  S1NA0*SINN0S/5IN(  ALPHAO  1  ) 

RINO'JT 

14d 

COSAO  •  SINt  ON+OETLAT  ) 

R INOUT 

145 

ONP  -  ABS'  OETLON-POSlON  ) 

RINO'JT 

]46 

IF(  ONP.GE.PI  )  ONP  •  T«)PI-a"P 

RINOUT 

147 

SINONP  «  SIN'  QNP  ) 

RINO'JT 

145 

STNOP  *  SINONP'SINNP/SINNOS 

RINOUT 

149 

SNOPSO  *  S1NQP*SIN0P 

RINOUT 

150 

COSQP  •  SORT'  1.0- SNOPSO  ) 

RINO'JT 

151 

COSAOR  »  ALPHAO*COSOP 

RINOUT 

152 

1F(  COSAO. IT. COSAOR  )  PSI  =  PI-PS! 

RINO'JT 

153 

IFt  IFIRE. GT.O  5  GO  TO  50 

RINO'JT 

154 

DETA2H1)  -  PSI 

RlNO’>.lT 

155 

RETURN 

RINOUT 

156 

cc 

RINO’J'' 

157 

cc. 

-  RINO'JT 

158 

cc 

THE  REMAINING  PORTION  OF  THIS  SUBROUTINE  15  NOT  USED  IN  THE 

RINOUT 

159 

cc 

NBk  MODULE. 

RINO'JT 

163 

50  continue 

RlNC'JT 

161 

cc 

SET  OETAZUL+I). 

RlHDt.rr 

16? 

OETAZItL*n  -  PSI 

RINO'JT 

16? 

cc 

RINO'JT 

164 

cc 

COMPUTE  SRCZEN(L«1)  AND  SRCSRfL+!>. 

RINOUT 

165 

cc 

ALPHAF  •  EARTH-CEN1R.LL  ANCLE  BETWEEN  RATS  TO  FIREBALL  AXO 

RINO'JT 

165 

cc 

LINE-OF-SIGHT  intersection  POINT 

RINO'JT 

167 

60  ALPHAF  »  CANOLEv  POSLAT, POSLON.SRCL AT.  SRC*  ON  1 

RIN'O'JT 

16f 

EPSF  -  (RE*POSAL’’VtREtSRCALT) 

169 

CE  .  t].0-EPSF)/t!.0*EP$F) 

R I 

170 

CF  «  2.*ATAN'  CF/TAN/ALPHAFT?.  I  ) 

omry-i'T 

PI 

BETAF  =  0.5*(PI-ALPHV-CF1 

R :H?VT 

P? 

SRCIEN(L«1)  ^  ALPHA* +BETAt 

P!NfH}T 

P? 

SRCSR(L»1)  =  RE*SIN{A  PHA'^  )/S!n;8ETA=) 

R  INO’JT 

1^4 

IFf  L.GE. IFIRE  )  RET'JRN 

RINO'JT 

P5 

L  =  L+1 

RINCjT 

P6 

GO  TO  30 

RINO'JT 

P7 

END 

I’c 
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S'JBROI'TINE  JCO'CN''  (  NSPEC.  XI.  NSl.  PI.  Tl,  X?,  WS2,  P?,  T?, 

SEGMENT 

? 

1  DU.  DUP  ) 

SEGMENT 

3 

c 

SEGMENT 

A 

r 

♦SEGMNT*  nrVELDPFS  THE  ABSORBER  A-SD  PARTIAL  PRESSURE 

SEGMENT 

b 

C 

INTEGRA'. 5  FOR  SPECIES  IN  THE  PATTI  ELE»1ENT  FROH  POINT  1 

SEGMENT 

6 

c 

TO  POINi  ?.  ALL  PROPERTIES.  TE“RERATl]R£,  PRESSURE,  AND 

segment 

7 

c 

COr.CEL'OlATIONS.  ARE  ASSUMED  TO  VARY  LINEARLY  THROUGH  THE 

segment 

R 

c 

path  elehen-". 

segment 

q 

c 

SEGMENT 

10 

CLJ 

input  parameters 

segment 

11 

CLJ 

ARGUMENT  list 

SEGMENT 

1? 

Cl  J 

NSPFC  =  NUMBER  OE  S.'>EC1ES  (10.  SET  IN  CALL  FROM  PATH). 

segment 

!3 

CL.l 

TVirSF  SPECIES  ARE  IDENTIPIEO  BY  COMMENTS  IN 

segment 

14 

CL.l 

SUBROUTINE  SHELLS. 

SEGMENT 

15 

CLO 

XI  =  DISTANCE  along  LINE  SEGMENT  (0..  'm  T  IN  CALL 

SEGMENT 

16 

CLC 

FROM  path),  CH 

SEGMENT 

17 

CLJ 

ns;  ■=  XNS!f’0;-ARRAY,  SET  IN  CALC  FROM  PATE.. 

SEGMENT 

IB 

CLJ 

^  ARRAY  OF  SPECIES  CONCENTRATIONS  AT  start  OF 

segment 

IR 

CLJ 

LINE  SEGMENT.  I/CM^B 

SEGMENT 

?C 

CLJ 

PJ  '  PSLl.  SET  IN  call  from  PATH. 

segment 

?1 

CLJ 

=  PRESSURE  AT  START  OF  LINE  SEGMENT,  AT>I 

SEGMENT 

?? 

CLJ 

Tl  =  TSLI.  SET  IN  CALL  FROM  PATH. 

.EGMENT 

?3 

CLJ 

=  TEMPERATURE  AT  START  OF  LINE  SEGMENT ,  DE  K 

SEGMENT 

?4 

CLJ 

XP  •  OS,  SET  IN  CALL  FROM  PATH. 

segment 

?5 

CLJ 

•  LENGTH  OF  LINE  SEGMENT,  CM 

SEGMENT 

?6 

CLJ 

NS’  '  XNST(10)-ARRAY.  set  in  call  FROM  path. 

SEGMENT 

?7 

CLJ 

•  ARRAY  or  SPECIES  CONCENTRATIONS  AT  END  OF 

segment 

?8 

CLJ 

LINE  SEGMENT.  1/CM*»3 

SEGMENT 

79 

CLJ 

P?  «  PSl?,  SE''  IN  call  from  PATH. 

SEGMENT 

30 

CLJ 

•  PRESSURE  AT  End  qf  LINE  SEGMENT,  ATM 

SEGMENT 

31 

Cl  J 

T2  =  TSl2.  SET  IN  CALL  FROM  PATH. 

SEGMENT 

3.' 

CLJ 

-  TEMPERATURE  AT  END  LINE  SEGMENT,  DEG  X 

SEGMfNT 

33 

CLJ 

XY  CO»*'ON 

SEGmfnt 

74 

CLJ 

T'i)  '  temperature  array  IN  atmospheric  transmission 

SEGMENT 

35 

CL.. 

MOPE..  SET  AS  DATA  IN  THE  DRIVER  PROGRAM.  (DEG  K) 

SEGMENT 

.35 

ClJ 

OUTPUT  PARAMETERS 

SEGMENT 

3' 

CLJ 

argument  i^iET 

SEGMENT 

CL.! 

OunO.lO'.i:  ARRAYS  OF  PAth  INTEGRALS  UfATM  CM'  AND  UPlATM"? 

segment 

CLJ 

DUPdJ.lOi  CM'  AT  10  TCMprRAOJRFS  FOR  EACH  OF  10  SPECIES. 

segment 

4.- 

CL-.! 

THE  UNITS  A»E  those  of  STEPHENS.  SaI/L’  PREFERS 

S‘'GMri|T 

al 

CLJ 

I'NITR  OF  CM  A’  SOP  FOR  U  AND  ATM-CM  AT  .TP  FOR  UP. 

segment 

4  •’ 

common  .'  XY  '  TT.’.T'. 

segment 

oiMENsrN  NSl ' nsp;.c n'T'-nspec'.,  du'io.nspec'.  dhr'io,n.gr 

segment 

di 

;  '  xT(io'..  0N5nx..’0'.,  xNso'JO'i 

SEGMtNT 

d‘> 

SF.Gment 

df 

P'A.  NSl,  NS?.  NL 

segment 

LCCI'A:  NGRAC 

srr.MfNT 

C 

segment 

d3 

CL..’ 

segment 

S''' 

CLJ 

NL  T  ■..-■sr..'.'-':”  T  NLIMRIT!,  MO;  EO.N  ES .'CM** 3  At  tp  rrriOMEN' 

SE  '.“ent 

SI 

L^L  l' 

F*irirp<  1"AT>  WITH  EToNnflpn  TEMPI  5ATU°E 

SEG-ENT 

fc 

Cl.' 

under  Tf'T.o.  1 

crr.MrN* 

C  7 

Cl  J 

neom; sT 

Sd 

DATA  Nl  '  ?.6PTE';R 

SEGMENT 

C.C. 

2 

SEGm: nt 

CALL  x":t  (  -;'.-NSRf:,  o  ,  ov  ' 

SEGmint 

C,  ' 

call  xmtt  ■■  .r'*NSPt:.  r..  rc'R  ; 

TEQ-ENT 

SJ-' 

1 


DPROX  ■  (  P2  -  PI  )  /  (  X2  '  XI  ) 

XPRO  •  PI  -  XI  *  DPRDX 
DO  1  H-1,NSPEC 

DNSDX(H)  •  (  NS2(M)  -  HSl(M)  )  /  I  (  X2  -  XI  )  *  Nl  ) 

XNSC(M)  •  NSl(H)  /  NL  -  XI  *  OKSOX(M) 

1  COHTIHUE 
C 

IF  (  XBS(  T2/T1-:.  )  .GT.  .005  )  GO  TO  7 
C 

C  HEARLT  ISOTHERMAL  PATH  aEMENT 

TBAR  '  .5  *  (  T1  +  T2  ) 

IT  -  0 

00  2  1*1,10 

IF  (  TBAR  .LE.  TT(I)  )  GO  TO  3 
IT  •  I 

2  CONTINUE 
C 

3  IF  (  IT  .EQ.  0  -OR.  IT  .EQ.  10  )  GO  TO  5 
C 

C  TEMPERATURE  INSIDE  TABLE  RANGE 

FN  *  (  TBAR  -  n(iT)  )  /  (  n(n+i)  -  n(iT)  ) 

FF  *  1.  -  FN 
0X1  •  X2  -  XI 

0X2  •  X2**2  -  Xl»»2 

DX3  *  J2"3  -  Xl»*3 

DO  4  M*1,NSPEC 

IF  (  NSl(M)  +  NS2(M)  .EQ.  0.  )  GO  TO  4 
TERM  *  DNSOX(M)  *  0X2  /  2.  +  XNSO(M)  •  0X1 
DU(IT.M)  *  FF  *  TERM 
0U(IT+1,M)  •  FN  *  TERM 

TERM  •  ONSOX(M)  *  OPRDX  •  0X3  /  3.  +  (  XPRO  *  DNSDX(M)  ♦ 

1  XNSO(M)  *  DPRDX  )  *  0X2  /  2.  ♦  XHSO(M)  ♦  XPRO  *  0X1 

0UP(IT,M)  *  FF  «■  TERM 
DUP(IT+1,H'  •  FN  ♦  TERM 

4  CONTINUE 
RETURN 

C 

C  TEMPERATURE  OUTSIDE  TABLE  RANGE 

5  IF  (  IT  .EQ.  0  )  IT  •  1 
0X1  =  X2  -  XI 

0X2  -  X2«2  -  Xl**2 
0X3  -  X2**:  Xl**3 

DO  6  M*1,NSPEC 

IF  (  NSl(M)  ♦  NS2(M)  .EQ.  0.  )  GO  TO  6 

DL'dT.M)  -  DH5CX(M)  •  3X2  /  ?.  ♦  XNSCtM)  •  DXl 

DUP(IT,M)  •  DNSOX(M)  •  OPRDX  •  0X3  /  3.  +  (  XPRO  *  DNSDX(M)  ♦ 

1  XNSO(M)  •  DPRDX  )  •  0X2  /  2  *  XNSO{M)  •  XPRO  *  DXl 

6  CONTINUE 
RETURN 


C 

C 

7 


8 


M0N-:ER0  TEMPERATURE  GRADIENT 
NGRAD  •  T2  .LT.  T1 
DO  8  1-1,10 
XTd)  •  T2  .  TT(I 
1  (  fi  -  tt(i 

CONTINUE 
IT  •  0 


ii; 


TP  -  T1 
T1  -  T2 


•  XI  + 

•  X2 


segment 

59 

SEGMENT 

60 

SEGMENT 

61 

SEGMENT 

62 

SEGMENT 

63 

SEGMENT 

64 

SEGMENT 

65 

SEGMENT 

66 

SEGMENT 

67 

SEGMENT 

68 

SEGMENT 

69 

SEGMENT 

70 

SEGMENT 

71 

SEGMENT 

72 

SEGMENT 

73 

SEGMENT 

74 

SEGMENT 

75 

SEGMENT 

76 

SEGMENT 

77 

SEGMENT 

78 

SEGMENT 

79 

SEGMENT 

80 

SEGMENT 

81 

SEGMENT 

82 

SEGMENT 

S3 

SEGMENT 

84 

SEGMENT 

85 

SEGMENT 

86 

SEGMENT 

87 

SEGMENT 

88 

SEGMENT 

89 

SEGMENT 

90 

SEGMENT 

91 

SEGMENT 

92 

SEGMENT 

93 

SEGMENT 

94 

SEGMENT 

95 

SEGMENT 

96 

SEGMENT 

97 

SEGMENT 

98 

SEGMENT 

9? 

segment 

100 

SEGMENT 

101 

SEGMENT 

102 

SEGMENT 

103 

SEGMENT 

104 

SEGMENT 

105 

SEGMENT 

106 

SEGMENT 

107 

segment 

108 

SEGMENT 

109 

segment 

110 

segment 

111 

SEGMENT 

112 

SEGMENT 

in 

segment 

114 

SEGMENT 

115 

272 


IF  (  HGRAD  )  IT  •  10 
II  •  1 

DO  IS  1-1,10 
IP  -  II 

{[  I  'xTd,)  .GE.  «  )  GO  TO  S 

IF  (  XT(n)  .LE.  Xl  .OR.  XTtlP)  .6E.  X2  )  GO  TO  15 
IF  (  I  -GT.  1  )  GO  TO  11 

first  part  of  path  OUTSIDE  TEMPERATURE  TABLE  RANGE 
DXl  •  XT(Il)  -  XI 
0X2  .  -  Xl**2 

0X3  -  XT{1I)*»3  -  Xl**3 

9  DO  10  M*1  .HSPEC  , 

1  ^  DNSOX(H)  ♦  XNSO(M)  •  OPROX  )  *  DX2  /  2.  + 

2  XNSO(M)  •  XPRO  *  DXl 

10  CONTINUE 
GO  TO  15 

temperature  inside  TABLE  RANGE 

11  XN  -  AHAXK  XT(IP).  XI  ) 

XF  •  AMINK  XT(II).  X2  ) 

DXl  -  XF  -  XN 

0X2  -  XF**2  -  XN*»2 
0X3  •  XF*»3  -  XN**3 
0X4  •  XF**4  .  XN«4 

-  NEAR  SIDE  INTEGRAL  TO  NEXT  POINT 

OXT  •  XT(ll)  -  XT(IP) 

FF  -  (  XF  -  XT(IP)  )  /  DXT 
FN  -  (  XN  -  XT{IP)  )  /  OXT 
IT  •  II 

c  INTEGRATE  8V  PARTS-OIFERENTIATING  THE  WEIGHTING  FACTOR 

■' !?  .to.  c.  1 00 10 .3 

0. ) » ■  i  ww;;;-";- •j;;'?'?’:'  ’ ' " 


DU(IT,M) 


♦2  /  2.  * 


SEGMENT  116 
SEGMENT  117 
SEGMENT  118 
SEGMENT  119 
SEGMENT  120 
SEGMENT  121 
SEGMENT  122 
SEGMENT  123 
crt^MTHT  124 
SEGMENT  125 
SEGMENT  1 26 
SEGMENT  127 
SEGMENT  128 
SEGMENT  129 
SEGMENT  130 
SEGMENT  131 


F  FN  NE.  0.  DNN  -  ONN  -  (  DNSDX(M)  •  XN«2  /  2.  ♦ 

U  I  FN  .Nt.  ;  *  XN  )  •  FN 

rrFF  0.  )  DNNPP  .  I  f»>rU?"r/.!ls^M)'.^i.p;DX  )  • 
1  XF«2  /  2.  F  XN50(M)  *  XPRO  •  XF  )  *  FF 

I  CM  IIP  0  1  ONNPP  •  DNNPP  -  I  DNSOX(M)  *  DPRDX  *  XN»«3  /  3. 

1  XN«2  t  2.  ♦  XMSO(M)  •  XPRO  ♦  XN  )  ♦  FN 

miPdT  Ml  -  GUPdT.Ml  ♦  ONNPP  -  (  ONSOX(M)  •  DPRDX  •  0X4  /12.  ♦ 

OUPdT.M)  *  XNSO(M)  •  DPRDX  )  •  DX3  /  e.  • 

2  XNSO(M)  •  XPRO  •  0X2  /  2.  )  /  DXT 
13  CONTINUE 


SEGMENT 

132 

SEGMENT 

133 

SEGMENT 

134 

SEGMENT 

135 

segment 

136 

SEGMENT 

137 

segment 

138 

SEGMENT 

139 

SEGMENT 

140 

SEGMENT 

141 

SEGMENT 

142 

SEGMENT 

143 

SE'SMENT 

144 

SEGMENT 

i;5 

SEGMENT 

146 

SEGMENT 

147 

SEGMENT 

148 

SEGMENT 

149 

SEGMENT 

150 

SEGMENT 

151 

SEGMENT 

152 

SEGMENT 

153 

SEGMENT 

154 

SEGMENT 

155 

SEGMENT 

156 

SEGMENT 

157 

SEGMENT 

158 

SEGMENT 

159 

SEGMENT 

160 

segment 

161 

SEGMENT 

16? 

SEGMENT 

163 

SEGMENT 

164 

SEGMENT 

165 

SEGMENT 

16S 

!*  SEGMENT 

167 

1  SEGMENT 

168 

SEGMENT 

169 

SEGMENT 

170 

SEGMENT 

171 

segment 

17? 

273 


I 


IF  {  IT  .NE.  II  )  GO  TO  14 

FAR  SIDE  INTEGRAL  FROM  PASSED  POINT 
OXT  »  XT(IP)  -  XT{I1) 

FF  =  {  *E  -  XT(II)  1  /  OXr 
FN  =  (  XN  -  XT(in  1  /  DXT 
IT  *  IP 
GO  TO  IP 

IF  (  I  .LT.  10  .OR.  XT(II)  .GE.  X2  )  GO  TO  15 

LAST  PART  OF  PATH  OUTSIDE  TEMPERATURE  TABLE  RANGE 
0X1  -  X2  -  XT(II) 

0X2  -  X2**2  -  XT(I1)**2 
0X3  =  X2«3  -  XTtII)«3 
GO  TO  9 

CONTINUE 


IF  (  NGRAO  1  IT  =  10  -  IT 
IF  (  IT  .EQ.  0  .OR.  IT 


.EO.  10  1  GO  TO  S 


RETURN 

END 


segment  173 
SEGMENT  174 
SEGMENT  175 
SEGMENT  176 
SEGMENT  177 
SEGMENT  178 
SEGMENT  179 
SEGMENT  180 
SEGMENT  181 
SEGMENT  182 
SEGMENT  163 
SEGMENT  184 
SEGMENT  IBS 
SEGMENT  186 
SEGMENT  187 
SEGMENT  188 
SEGMENT  189 
SEGMENT  190 
SEGMENT  191 
SEGMENT  192 
SEGMENT  193 
SEGMENT  194 
segment  195 
SEGMENT  196 


subroutine  SETALT  (  ALMIN,  ALMAX,  JBANO  ) 

SETALT 

? 

ccc 

ietalt 

3 

c 

subroutine  SETALT,  called  from  the  driver  program  DRV'JPW, 

SETALT 

4 

c 

determines  the  altitudes  at  which  subroutine  URWtlL  COMPUTES 

.'■'TALT 

5 

c 

the  uphelling  natural  radiation. 

SE.  '  T 

6 

c 

A  SET  of  characteristic  altitudes  has  been  previously  selected 

SETALT 

7 

c 

FOR  each  of  the  10  SPECTRAL  BINS.  IF  THE  WAVE LENGTH -BAND  OF 

SETALT 

R 

c 

interest  (ALMIN.ALMAX)  SPANS  MORE  THAN  ONE  BIN,  WE  USE  A  SET 

SETALT 

q 

c 

OF  altitudes  obtained  by  combining  THOSE  FOR  EACH  OF  THE 

SETALT 

in 

c 

SPANNED  BINS. 

SETALT 

11 

ccc 

SETALT 

1? 

c 

INPUT  PARAMETERS 

SETALT 

13 

c 

ARGUMENT  LIST 

SETALT 

U 

c 

ALMIN,  -  MINIMUM  AND  MAXIMUM  WAVELENGTHS  FOR  WHICH 

SETALT 

15 

c 

ALHAX  UPWELLING  NATURAL  RADIATION  IS  TO  BE  COMPUTED, 

SETALT 

16 

c 

MICRONS 

SETALT 

17 

c 

JBANO  -  BROAO-BAND  LOOP  INDEX  (1,5) 

SETALT 

18 

c 

SETALT 

19 

c 

OUTPUT  PARAMETERS 

SETALT 

20 

c 

COmON  URWELS 

SETALT 

21 

c 

NALT(JBANO)  -  NUMBER  OF  ALTITUDES  FOR  BROAD-BAND  INDEX 

SETALT 

22 

c 

JBANO 

SETALT 

23 

c 

ZXMfl.JBAND)  I'I.NAlTIODAND) 

SETALT 

24 

c 

-  ALTITUDES  OF  POINT  V  ABOVE  L'PWALT  AT  WHICH 

SETALT 

25 

c 

UPWELLING  RADIANCE  IS  COMPUTED  FOR  BROAD¬ 

SETALT 

26 

c 

BAND  INDEX  JBANC,  KM 

SETALT 

27 

ccc 

SETALT 

28 

COMMON/UPWEtS/  UPWALT,UPWL0N,UPMLAT,NALT(5),ZKM(13,5:,NNADIR,NAZI, 

UPWELS 

2 

NWAVE(5).IDATV,CLOFLG,UPRADN(13,10,5).WV(10,5),IKM,  UPWELS  3 


* 

NBANDS 

UPWEL  S 

4 

COPfON/UPWELSl/ 

UPWELS 

5 

2 

R010(6.10),R010A(6,i0.10),R010N(e,10), 

UPWELS 

6 

3 

R025!6,10),R025A(6,10,10),RO?5N(6.10), 

UPWELS 

7 

4 

R050(6,10),R050A(6,10,101,R050N(6.10), 

UPWELS 

8 

5 

RO'30(6,10),R090A(6,10,10),R090N{6,10), 

UPWELS 

9 

6 

R100(6.10),R100A(6.10,10),R100N(6,10) 

UPWELS 

10 

7 

,ARCVAf6,10,10),ARCVN<6,10) 

UPWELS 

11 

DIMENSION  1 

HUPWEL(11.10).BINLAM(11).NALTL(10'),ALT(66) 

SETALT 

30 

C 

SETALT 

31 

C 

DEFINITIONS  OF  DATA... 

SETA’,  T 

3? 

c 

NBINLl  -  NUMBER  OF  WAVELENGTH-BIN  BOUNDARIES  MINUS  ONE 

SETALT 

33 

r. 

-  NUMBER  OF  wavelength  BINS 

SETALT 

34 

c 

B!NLAM(L)  L'1,(NB1NLH1) 

SETALT 

35 

c 

-  wavelength  of  bin  boundary,  MICRONS 

SETAlT 

36 

c 

NAL 

’■L(M)  M=l. NBINLl 

seiali 

37 

c 

-  number  of  altitudes  FOR  WAVELENGTH-BIN  M 

SETAlT 

38 

c 

HUPWELd.M)  I=.1.NALTL(M)  M=1. NBINLl 

SETAL-f 

39 

c 

-  ALTnUDE.I  FOR  WAVELENGTM-BIN  M,  KM 

SETALT 

40 

c 

SETALT 

01 

UATA  NBINLl 

/  10  / 

SETAlT 

47 

data  BINLAM 

/  2.000.  2.100.  2.575,  2.675.  2.725,  2.875,  4.150, 

SETALT 

43 

S 

4.550,  4.750,  4.850,  5.000  / 

SETAlT 

44 

DATA  NALTL 

/  5.  4,  5.  11.  5,  4,  q. 

SETA-.T 

4T 

s 

5.  4 

SETALT 

4f 

DATA  HUPWEL 

/  0.,  1.,12.,20..100..0.,  0.,  0.,  0.,  0.,  0.. 

SETA.t 

4  ’ 

2 

0.,  1.,12..!00..0.,  0..  0..  0.,  0..  0.,  C.. 

SETAlT 

4  = 

3 

0.,  1.,  3.,12..100..0.,  0.,  0.,  0.,  0..  0., 

SEtrlT 

49 

4  0..  1..  2..  4..  9. .12. .20. .30. .50. .70., 100., 

SETAiT 

50 

5  0.,  1..  3.,12.,100.,0..  0..  0.,  0..  0..  0., 

SETALT 

51 

6  0.,  1..12..100..0..  0.,  0.,  0.,  0..  0.,  0.. 

SETALI 

52 

7  0..  1..  3.,  6. ,12.. 20. ,50. .70., 100.. 0.,  0.. 

SETALT 

53 

8  0..  l.,12.,100.,0.,  0.,  0..  0..  0.,  0..  0.. 

SETALT 

54 

9  0.,  1..12..30..100..0..  0.,  0..  0.,  0.,  0.. 

SETALT 

55 

A  0.,  1..12..100.,0..  0.,  0.,  0..  0.,  0..  0./ 

SETALT 

56 

SETALT 

57 

DETERMINE  WHICH  WAVaENGTH  BINS  THE  MINIMUM  AND  MAXIMUM 

SETALT 

58 

WAVELENGTHS,  ALMIN  AMO  ALMAX.  FALL  INTO. 

SETALT 

59 

IF  (  ALMIN  .LT.  2.0  )  GO  TO  IS 

SETALT 

60 

DO  10  K-1,NBINL1 

SETALT 

61 

IF  (  ALMIN  .IT.  BINLAM(X+1)  )  GO  TO  20 

SETALT 

62 

10  CONTINUE 

SETALT 

63 

15  HRITE(6,16) 

SETALT 

C4 

15  F0RMAT(1H0,1X,S4HA  BOUNDARY  WAVELENGTH  IS  OUTSIDE  THE  2.0-  TO  5.0- 

SETALT 

65 

JMICRON  INTERVAL) 

SETALT 

66 

STOP  1 

SETALT 

67 

20  WlIN  «  K 

SETALT 

68 

NOW  HAVE  INDEX  MMIN  OF  WAVELENGTH  BIN  FOR  MINIMUM  WAVELENGTH. 

SETALT 

69 

DO  25  ((*1,NBINL1 

SETALT 

70 

IF  (  ALMAX  .LE.  BINLAM(K*1)  )  GO  TO  35 

SETALT 

71 

25  CONTINUE 

SETALT 

72 

30  HRITE(6,16) 

SETALT 

73 

STOP  2 

SETAIT 

74 

35  WAX  <  K 

SETALT 

75 

NOW  HAVE  INDEX  WAX  OF  WAVELENGTH  BIN  FOR  MAXIMIM  WAVELENGTH. 

SETALT 

76 

SETALT 

77 

IF  (  r9UX  .NE.  WIN  )  GO  TO  SO 

SETALT 

78 

NALTO  ‘  NALTLCMMlN) 

SETALT 

79 

NALT(JBANO)  •  NALTJ 

SETALT 

80 

00  40  1*1. NALTJ 

SETALT 

81 

7KM(I,JBAND)  «  HUPWEL(I,I#4IN) 

SETALT 

82 

40  CONTINUE 

SETALT 

83 

GO  TO  90 

SETAIT 

B4 

50  CONTINUE 

SETALT 

85 

J  •  0 

SETALT 

86 

DO  70  M>miN,IWAX 

SETALT 

87 

NH  •  NALTL(M) 

SETALT 

88 

DO  60  I-l.NH 

SETALT 

89 

J  •  J  +  1 

SETALT 

90 

ALT(J)  -  HUPHEL(I,M) 

SETALT 

91 

50  CONTINUE 

SETALT 

92 

70  CONTINUE 

SETALT 

93 

JMAX  >  J 

SETALT 

94 

SORT  ALT  ARRAY  IN  ORDER  OF  INCRE»SING  ALTITUDES  AND  THEN 

SETALT 

95 

ELIMINATE  REDUNDANT  ALTITUDES. 

SETALT 

96 

CALL  SORTLJIALT, ALT, ALT, JMAX. 0) 

SETALT 

97 

JWl  -  JMAX  -  1 

SETALT 

98 

J  •  1 

SETALT 

99 

ZKMd.JBAND)  -  SLT(l) 

SETAIT 

100 

DO  80  I-1,JMK1 

SET, alt 

101 

IF  (  ALT(I.tl)  .EQ.  ALT{I)  )  GO  TO  80 

SETALT 

102 

J  -  J  ♦  I 

SETALT 

103 

2KM(.1,JBAN0)  *  ALT{I+1) 

SETALT 

104 

80  CONTINUE 

SETALT 

105 

HaLT(JBANO)  .  J 

SETALT 

106 

90  CONTINUE 

SETALT 

107 

END 

SETALT 

108 

276 


c 

c 

c 

c 

c 

CLJ 

CLJ 


SUBROUTINE  SHELLS 

♦SHELLS*  PREPARES  A  TABLE  OP  PHYSICAL  PROPERTIES  FOR  THE 
AMBIENT  AfMOSPHERE  USED  IN  THE  CALCULATION  OF  ATMOSPHERIC 
TRANSMISSION. 


INPUT  PARAMETERS 


SHELLS 

SHELLS 

shells 

SHELLS 

SHELLS 

SHELLS 

SHELLS 

SHELLS 


CLJ 

ATMOUP  COMMON 

SHELLS 

10 

CLJ 

PP  • 

PRESSURE.  DVHES/CM«2 

SHELLS 

11 

CLJ 

n  - 

TEMPERATURE,  DEG  K 

SHELLS 

12 

CLJ 

SNId)  - 

DENSITY  OF  SPECIES  I,  1/CM«3 

SHELLS 

13 

CLJ 

PARTICULAR  SPECIES  ARE  INDICATED  AS  FOLLOWS... 

SHELLS 

14 

CLJ 

N  I-IKAPIN)  SMI(l) 

SHELLS 

15 

CLJ 

..  -  - 

SHELLS 

16 

CLJ 

1  8  NO 

SHELLS 

17 

CLJ 

?  11  NO* 

SIELLS 

18 

CLJ 

3  21  H20 

SHELLS 

19 

CLJ 

4  15  N02 

SHELLS 

20 

CLJ 

5  14  03 

SHELLS 

21 

CLJ 

6  6  C02 

SMELLS 

22 

CLJ 

7  20  CO 

SHELLS 

23 

CLJ 

8  22  CH4 

SMELLS 

24 

CLJ 

9  16  H20 

SHELLS 

25 

CLJ 

10  18  OH 

SHELLS 

26 

CLJ 

XY2COM  COMMON 

SHELLS 

27 

CLJ 

FACT  • 

PATH  INTEGRATION  FACTOR  CONTROLLING  THE  NUMBER  OF 

SHELLS 

28 

CLJ 

ALTITUDES  AND  SPACING  (HAY  HAVE  A  VALUE  BETWEEN 

SHELLS 

29 

CLJ 

0.1  AND  10.  PER  EWING.  NOMINAL  VALUE  IS  1.0) 

SHELLS 

30 

CLJ 

FOR  FACT»1.0,  HE  HAVE  NS»77  AND  XHNGE*40. 

SHELLS 

31 

CLJ 

J 

HS,  KM 

SHELLS 

3? 

CLJ 

*** 

****«•*• 

SHELLS 

33 

CLJ 

1 

0.0 

SHELLS 

34 

CLJ 

2 

0.526 

SHELLS 

35 

CLJ 

39 

20.000 

SHELLS 

36 

CLJ 

40 

22.105 

SHELLS 

37 

CLJ 

58 

60.0 

SHELLS 

38 

CLJ 

77 

100.0 

SHELLS 

39 

CLJ 

SHELLS 

40 

CLJ 

SUBSEQUENT  TO  THE  INITIAL  DEVELOPMENT  OF  SUBROUTINE  SHELLS  BY 

SHELLS 

41 

CLJ 

L.  EWING  OF 

GET,  J.  GARBARINO  OF  GRC  SIGNIFICANTLY  REVISED  THE 

SHELLS 

42 

CLJ 

SETTING  OF 

EHE  ATMOSPHERIC  SHELLS  WITH  THE  INTENT  TO  REDUCE 

SHELLS 

43 

CLJ 

THE  RUNNING 

TIME.  FOR  THE  original  SEHING  OF  THE  ATMOSPHERIC 

shells 

44 

CLJ 

SHELLS.  THE 

MAXIMUM  NUMBER  OF  BOUNDARIES  WAS  81.  FOR  THE  GRC 

SHELLS 

45 

CLJ 

setting.  IT 

IS  61.  THUS,  several  VARIABLES  COULD  HAVE  THEIR 

SHELLS 

46 

CLJ 

DIMENSIONS  REDUCED  TO  61  FOQM  81.  GPC  HAS  ALSO  MAOE  FACT 

SHELLS 

47 

CLJ 

dependent  on  TRNSOPT  in  program  ATKGEN  by  SETTING  FACT  TO  1.0 

SHELLS 

48 

CLJ 

IF  TRNSOPT 

.NE.  FAST  AND  TO  10. C  IE  TRNSOPT  .EO.  FAST. 

SHELLS 

49 

CLJ 

HE  HAVE  KEPT  FACT  INDEPENDENT  OF  TRNSOPT. 

SHELLS 

SO 

CLJ 

SHELLS 

51 

CLJ 

HE  RE'ORO  THE  gCJNOARIES  FOR  TWEE  VALUES  OF  FACT,  PER  GRC. 

SHELLS 

5? 

CLJ 

■^HELLS 

53 

CLJ 

FOR  FACT  • 

1.  KP»1.25,  Xl»3.125,  X2.7.B125 

r-HELlS 

54 

CLJ 

J  HS 

J  HS  J  HS 

SHELLS 

55 

CLJ 

_ 

SHELLS 

56 

CLJ 

1  0. 

JCHNGWIO  13.125  JCHNG2-1B  4?. 8125 

SHELLS 

^7 

CLJ 

?  1.75 

11  16.250  19  50.6750 

0^'  E  L  L  S 

58 

Z71 


ClJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLw 

CLJ 

CLJ 

CLJ 

ClJ 

CLJ 


c 

c 

CLJ 

CGET 

CGfT 

CGH 

CGtT 

CLJ 


3 

2. SO 

12 

19.375 

4 

3.75 

13 

22.500 

5 

5.00 

14 

25.625 

6 

6.25 

15 

28.750 

7 

7.50 

16 

31.875 

8 

6.75 

17 

35.000 

9 

10.00 

FDR 

FACT  - 

10. 

XQ=3.0. 

Xl=7.5. 

J 

HS 

J 

HS 

1 

0.0 

JCHNG1=5 

16.5 

2 

3.0 

6 

24.0 

3 

6.0 

7 

31.5 

4 

9.0 

FOR 

FACT  = 

.1. 

XC=0.5. 

11=1.25. 

J 

H5 

J 

HS 

_ 

_ 

1 

0.0 

JCHNGl'22 

11.25 

2 

0.5 

23 

12.50 

3 

1.0 

?4 

13.75 

21 

10.0 

41 

35.00 

20 

58.4375 

SHELLS 

59 

21 

66.2500 

SHELLS 

60 

22 

74.0625 

SHELLS 

61 

23 

81.8750 

shfllS 

6? 

24 

8S.r>d75 

SHELLS 

63 

25 

97.5000 

SHELLS 

64 

shells 

65 

SHELLS 

66 

.75 

SHELLS 

67 

J 

HS 

sheli  S 

68 

shells 

69 

XHNG2=  8 

50.25 

SHELLS 

70 

9 

69.00 

shells 

71 

10 

87.75 

SHELLS 

72 

11 

106.50 

SHELLS 

73 

SHELLS 

74 

.125 

shells 

75 

J 

1!S 

shells 

!b 

shells 

77 

J''HNG?=42 

38.125 

SHELLS 

78 

43 

41.250 

SHELLS 

79 

44 

44.375 

SHELLS 

sn 

SHELLS 

81 

shells 

8? 

SHELLS 

83 

61 

97.500 

SHELLS 

84 

SHELLS 

85 

SHELLS 

86 

SHELLS 

87 

SHELLS  Sf> 

SHELLS  SS 

SHELLS  SO 

^E!  IS  SL 

SHELLS  sr- 

shells  ss 

SHELLS  94 

SHELLS  9S 

EmelLS  96 

SHELLS  9? 

5nri_^S  9H 

Shells 

SH  ELI  s  1*^’- 

SHfLLS  1C? 

SHE.L'^  10? 

SHELLS  1C4 

SHELLS 

^-‘r;  LS  It  °- 

Sh'.i'^  w: 

SH  ^  L  ^  111 

^  c  •  s.  1  -3 

r.i 


OUTf-CT  PAPAHETCRS 
XYZCOM  C(>*OS 

NS  =  NUWEfl  OF  AL'ITDDC  BOlWCWTES 
HSHELLtj;  =  ALTITUDE  BOUNtlAPIES.  Cl*  (J'l.HS) 

TSIJl  •  TE>IPER#T'JPE  AT  altitude  BOLWOAPY  J,  DEG  F  EJ*1,N.' 
Pi(ji  •  PPESSURE  AT  ALTITUDE  BOUNOARV  J,  ATW  IJ^l.NS' 
XNSPECiJ  Nl  >  SPECIES-N  DENSITY  AT  ALTITUDE  BOUNDAR*  J.  I'C 
(J=1.NS  .  N=1.101 

DIMENSION  PRHATRfBl) 

DTMtNSION  IMAPUO)  ,  ^ 

COI'-ON  /  ATMO-P  /  HL.  SCAR.  TDORN.  PP,  RHO,  TT.  SNI'SC'..  HRHu. 

'cOWN  /  XrZCOM  /  ^We!  LTWTE.  ns.  HSHELLIBl).  TS{Pn.  P^n. 

1  xnspec'si.id),  u'10,10.?),  i;p;io.io,?i,  h-o.s. 

2  fact 

DATA  'MAP  /  3.  11.  PI.  IS.  lA,  6,  ?0,  P2,  16.  18  ' 

THE  original  GE^  algorithm  IS  COI*«iNTEO  DU’'  HIYh  CGr. 

NS  •  AO.S  -  ?.S  *  FACT 

NS  *  maid'  30.  MINJI  2  *  NS.  80  '  1  *1 

jchnge  '  ?  *  ns  /  ? 

X  -  40.  /  Float!  ns  -  1  ) 


NS  -  6.1  -  7. /FACT 

NS  .  MAXI!  10.  mind!  60.  ?*NS  ■> 

.KHNSl  ^  ?  +  NS/3 

JCHNG?  .  ?  *  ?*NS.'3 

J  ■  30./FLCAT/NS-! ) 


♦  1 


HS  -X 

SHELLS 

116 

»fflITE(6.5) 

SHELLS 

IP 

5  F0RMAT(1H1,MX.43M*  »  *  OUTPUT  FROM  SUBROUTINE  SHELLS  *  *  *./F.l 

SHELLS 

11° 

$H  .1?6H  J  HSHaL  TS  PS  MO  NO*  N?0 

SHELl 5 

IP 

I  N02  03  CO?  CO  CH4  H?0  0 

SHELLS 

1  ?0 

JH/.IH  .?8H  to  DEG  K  ATMOS  ,10[3X,7Hl/CM*«3‘i' 

SHELLS 

PI 

DO  10  J=1.NS 

SHELLS 

1?7 

CGET  IF(  J  .EQ.  JCKNGE  )  X  =  4.  *  )! 

SHELLS 

123 

1F(  J  .EO.  XHNG!  )  X  =  2.5*X 

SHELLS 

i?4 

IF(  J  .EO.  JCHNG?  )  X  -  ?.5*X 

SHELLS 

125 

HS  *  MS  +  X 

SHELLS 

i?6 

C 

ESTABLISH  ARRAf  OF  SHELL -BOUNDARY  ALTITUDES. 

SHELLS 

127 

HSHELL(J)  =  HS  *  1.E5 

SHELLS 

i?e 

CALL  ATMOS'J  [  ?,  KS  1 

SHELLS 

129 

CALL  SPCMIN  {  ?,  HS  ) 

SHELLS 

130 

SNKU!  =  0. 

SHELLS 

121 

CLJ 

SHELLS 

1 3.7 

CLJ 

THE  TEST  ALTITUDE  IN  THE  FOLLOWING  IF-STATEMENT.  INITIALLY  SET 

S^'TllS 

133 

CLJ 

TO  75  XM  BY  G.E. TEMPO.  HAS  BEEN  CHANGED  TO  90  Y-  BECAUSE 

SHELLS 

134 

CLJ 

subroutine  IONCS"  COMBUTES  NO*  only  for  altitudes  .GE.  90  XM. 

SHELLS 

135 

CLJ 

FURTHER.  NO*  IS  PROBABLY  NEGLIBLE  BELOW  90  X". 

shells 

136 

CLJ 

SHELLS 

13? 

1E(  HS.GE.90.  )  CALL  IOHOSU(  2.HS  ) 

SHELLS 

133 

TS{J)  -  AMINII  300. .TT  ) 

SHELLS 

139 

PSIji  T  pD  !  i.0l3?5E6 

SHELLS 

140 

00'!’n  =  1,]o' 

SHELLS 

14! 

I  *  IKAPIN) 

SHELLS 

14? 

XNSPEC(J,N)  =:  SN!(I) 

SHELLS 

143 

1  continue 

SHELLS 

14i 

WRITE!  6. 11)  J.HS.TS!0'.RS.'J),!XN5PEC(J.N),N  =  3,10; 

P“ELL5 

145 

11  FORMAT  (1X.I3.1PE10.3.0PF6.1,1011E10.3) 

SHELLS 

146 

10  COKTINL'E 

SHELLS 

14" 

CIJ 

TO  FACILITATE  COMPARING  0L»  AIMCiSbhERE  WITH  THOSE  USED  BY 

SHELLS 

14.P 

CLJ 

OTHER  WORXERS,  the  FOLLOWING  STATEmentc  (rp.LOr.o-:^  AN  ; 

SHELLS 

149 

CLJ 

ASSOCIATED  PRINT)  WERE  ADDED  TC  COMPUTE  THE  WATth  CONTfN’ 

SHELLS 

15'’ 

CLJ 

OF  THE  ATMOSPHERE  ALONG  A  VERTICAL  PAT»  ABOVE  EAC«  OF  THE 

ShIlL  S 

1  C  ’ 

CLJ 

SHELL  BOUNDARIES.  THE  WATER  CONTENT  ABOVE  BOUNDARY  J, 

SHELLS 

is" 

CLJ 

PRWATRiJ),  ,5  expressed  IN  UNITS  OF  PRECIPITABLE  CEN’ImetehS, 

SHELLS 

CLJ 

I.E., 

SHE.LS 

CLJ 

FR  CM(H?01  *  3.34*E*??  MOlECULES-'CM"?  . 

SHE.LS 

sec 

ClJ 

WE  ASsliME  AN  EXPC'NEN'':AL  PEPEN'ENCE  0^  the  WA'^ER  VAP^p 

SH  E  .  L  S 

CLJ 

CONCEniratiOn  between  the  B0';NDA,®IES  AND  mENDE  CALL  FUSD’ION 

Shell  s 

CLJ 

ACCOM  n;th  ITYRE  =  ?. 

^E.L  T 

S  C  S 

PRHATR(NS)  •  0. 

SHfUS 

00  ?0  I-2.NS 

Shells 

1 

J  •  NS  -  1  ♦  1 

SHELLS 

OElprw  .  ACC'JM'  ?,  hSHElL'J'.  hshELLU*;!,  xNSPfE'J.Rl, 

SHELL  s 

$  xnSpEC!  J*I,B'.  hShEllEJ'i,  “SHELL'J*!'  ' '3 . S’E*.®.' 

SHELL  R 

RBWAT^Ji  .  RRHATRIJ*!’.  *  OELPfiW 

SHELL' 

20  CONTINUE 

SH'-.l  R 

ICf 

W7ITE!e..7s'.  (  HSHELL'JI,  PRWAtp/J',  J.l  ,NS  1 

SHELL  R 

sec 

FORMA^  !*C  HShElLixm'.,  ppwa’RIpT  C“i  •*/!5»,lPiOEl?.4 1 '■ 

r.u  r  L  R 

’C 

return 

ShR;:' 

TNO 

RhT. .  ' 

ccc 

c 

c 

c 

c 

c 

ccc 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ccc 


ccc 


SUBROUTINE  SCK.RAO(K.e.E) 

subroutine  SOLRftO  PROVIDES  THE  SOLAR  SPECTRAL  IRRADIANCE 
AT  THE  TOP  OF  THE  EARTH'S  ATHOSPHERE,  IN  THE  SPECTRAL  RANGE 
FROM  2  TO  5  MICROMETERS  (OR  5000  TO  2000  WAVENUMBERS). 

THE  NASA  DATA  ATOPTED  BT  THE  ASTM  HAVE  BEEN  FITTED  BY 
PIECEWISE -CONTINUOUS  POWER-LAW  EXPRESSIONS. 

INPUT  PARAMETERS 

B  -  WAVENIIABER  (CM-l)  .  K»1.2.3,4 
-  WAVELENGTH  (UM)  .  K-5.6,7,8 
K  -  INDEX  specifying  UNITS  FOR  INPUT  AND  OUTPUT 

OUTPUT  PARAMETERS 

E  -  SOLAR  SPECTRAL  IRRADIANCE  AT  THE  TOP  OF  THE  EARTH'S 
ATMOSPHERE,  IN  UNITS  OF... 

PHOTONS/ {CK*»2  SEC  CM-1)  .  X=l,5 

PHOTON S/(CM**2  SEC  UA)  .  K«2.6 

HATTS/(CM«2  CM-1)  .  K-3.7 

WATTS/ f  M**2  UM  )  .  KM. 8 

DATA  C.H  /  2.997925E+10,  6.626176E-27  / 

DATA  E2P2.E2P9,E3P5.EAP0.E5P0  /  79. 0.35. 0,14.6. 9. SO. 3. 79  / 

DATA  C2P2.C2P9,C3P5,C4PO,C5PO  /  2. 2. 2. 9, 3. 5, 4. 0,5.0  / 
data  flag  /  -2.0  / 

GO  TO  20 


1F(  FLA6.GT.0.0  ) 

flag  -  *2.0 

1.0E*07/(H*C) 

AL0G(E2P9/E2P2)/AL06{C2P9/C2P2) 
ALOG  ( E3P5/E2P9 )  /  ALOT,  ( r.3P5/C?P9) 
ALOG(EAPO/E3P5)/ALOG(C4PO/C3P5) 
ALOGU5PO/E4PO)/ALOG(C5PO/C4PO) 


HCIV 
A2P2 
A2P9 
A3P5 

A4P0 

20  CONTINUE 

A  •  B 

IF(  A.LE.0.0  )  60  TO  27 

IF(  (k.le.o)  .or.  {K.GI.S)  ) 
:f(  k.lt.5  •  ■  - 


GO  TO  29 

A  •  1.0E+04/A 

IF(  (A.LT.2.)  .OR.  (A.GT.5.)  )  GO  to  ?? 
1F(  A.6E.C4P0  )  GO  TO  23 
1F(  A.GE.C3P5  )  GO  TO  22 
IF(  A.GE.C2P9  )  GO  TO  21 
E  *  E2P2»(A/C?P2)»*A2P2 
GO  TO  24 

E  •  E2P9*(A/C2P9)«A2P9 
GO  TO  24 

E  •  £3P5»(A/C3P5)»*A3P5 
GO  TO  24 


S3LRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRA.f' 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOlRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOlRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 


2 

3 

4 

5 
G 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 
3? 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
«F 
49 


23 

E  •  E4P0*(A/C4P0)*»A4P0 

SOLRAD 

SO 

24 

IF!  (K.ED.4)  .or.  (K.EO.BI 

I 

GO 

TO 

23 

SOLRAD 

SI 

ir{  (K.EQ.3)  .or.  (K.ED.71 

) 

GO 

TO 

26 

SOLRAD 

5? 

IF(  (r,,EQ.2)  .OR.  (K.EQ.6) 

) 

6C 

TO 

25 

SOLRAD 

6? 

E  •  1.0E-12»HCIV*E*A*A»A 

SOLRAD 

54 

GO  TO  28 

SOLRAD 

55 

25 

E  ■  i.oE-oe»H:iv»E*A 

'"OLRAP 

56 

GO  TO  28 

SOLRAD 

57 

26 

E  •  1.0£-Clfi»E*A»A 

SOLRAD 

58 

?dO 


o  o  o 


28  RrruRH 

27  PRINT  31.  A  _  tn, »»«  u»e  arfH  CALLED  WITH  WAVELENGTH  (OR  SOLRAD 

31  FORHAT  {8JHO  SueROUTlHE  SOLRAD  HAS  BLEU  LALLt  SCLRAO 

^  . .  _ .  \  Aff'f  B&U^r  F  l/^4l  pkAr\ 


SOLRAD 

SOLRAD 


SCLRAO 

SOLRAD 

SOLRAD 


1  FORHAT  (8SMU  71 

S  ravenuwer)  Out  Of  range.  ,ei2.*) 

CALL  EXIT  — 

29  PRINT  33,  K  uif  bEEH  CALLED  WITH  IMPROPER  VALUE  SOLRAD 

33  FORHAT  (68H0  SUBROUTINE  SOLRAD  HAS  Btm  i-M-Lcu  »  SOLRAD 

$  FOR  INDEX  K..U01  SOLRAD 

CALL  EXIT 


59 

60 
61 
62 

63 

64 

65 

66 

67 

68 


CCC 

CCC 

CCC 


SUBROUTINE  SORTLOC  A.B.C.N.LOHI  ) 

clvfN  THE  A  ARRAY  OF  LENGTH  N,  THIS  ROUTINE  SORTS 
AF.RAY  FRW  low  TO  HIGH  IF  LOHl  .LE.O  AND  FROM  HIGH  TO  LOW 

THETwrcVpAYS  ARE  SIHPLY  CARRIED  ALONG. 


DIMENSION  A(l),  B(l),  C(l) 

M  •  N 

20  M  *  H/2 

IF(  M.EQ.O  )  GO  TO  40 
K  «  B-M 
J  •  1 
41  I  -  J 
*9  L  •  I*** 

IF(  LOHI  )  50,50,52 

C  *  *  *  SORT  LOW  TO  HIGH. 

50  1F(  A(L).GE.At!)  )  60  TO  60 
GO  TO  55 
C 

c  *  *  *  SORT  HIGH  TO  LOW. 

52  IF{  A(L).LE.A(I)  )  GO  TO  60 
55  X  •  A(I) 

Y  .  B(l) 

I  •  C(l) 

Ad)  *  A(L) 

Bd)  -  6(L) 

Cd)  •  C(L) 

A(L)  -  X 
8(L)  ■  T 
C(Ll  •  Z 

I  • 

IF(  I.GE.l  )  GO  TO  49 
60  J  =  J+1 

IF'  J-K  )  41,41.20 
40  RETURN 
END 


sortlj 

2 

sortlj 

3 

SORTlJ 

4 

sortlj 

5 

sortlj 

6 

SORUJ 

7 

sortlj 

8 

SORTlJ 

9 

sortlj 

10 

SORTLJ 

11 

SORTLJ 

12 

sortlj 

13 

sortlj 

14 

SORUJ 

15 

sortlj 

16 

SORTLJ 

17 

sortlj 

18 

sortlj 

19 

sortlj 

20 

SORTLJ 

21 

SORTLJ 

22 

SORTLJ 

22 

SORTLJ 

24 

SORTLJ 

25 

SORTLJ 

26 

SORTLJ 

27 

sortlj 

28 

SORUJ 

29 

SORUJ 

30 

SORTLJ 

31 

sortlj 

32 

SOH'^LJ 

33 

SORUJ 

34 

sortlj 

35 

sortlj 

36 

SORTLJ 

37 

sortlj 

38 

sortlj 

39 

sortlj 

40 

281 


SUBROLi’ISE  STEP  (  PX ,  S^ftT.  CIST,  HC.  OS,  XFRACS,  INQX  1 

STEP 

0 

c 

c 

•STEP*  CALCOLATcS  TVE  ISTCRSECTIOSS  OF  AN  OPTICAL  PA*H  W!*w 

STEP 

t 

c 

THE  LINEARLT  VAR'MNG  SHELLS  IN  E  ATVOSPhEPIC  HDOEL  .  pA*h 

STEP 

L 

c 

elements  less  Tna.s  TEN  METERS  IN  LENGTH  ARE  ASSI&N'^O 

STEP 

f. 

c 

TO  The  NEIGHBORING  SHELL. 

S'^EP 

' 

c 

STEP 

c 

CLvI 

STEP 

Q 

CLO 

INPUT  PSPAMETEC  ■ 

STCtJ 

CLO 

argument  list 

STCP 

CLJ 

RX'I)  =  LOCATION  VECTOR  TO  ONE  ENP  OF  to  a.\sh;  ffitn  psth. 

rP 

*  ? 

CLJ 

ttrically  B‘J’  no*  necessarily  a*  the  DE-ECTOb,  C'h 

STPP 

1  •? 

CLJ 

SHAT(I)  S  UNIT  VECTOR  ALONG  THE  tranS'ISSION  °ATH  FR-O"  rv  ro 

?’'EP 

Ifi 

CLO 

RX,  CM 

S'^EP 

IE 

CLJ 

IFOR  RX  ANP  SHAT  1=1,3' 

5TC0 

i*' 

CLJ 

DIET  =  HAGNiniOE  OF  DISTANCE  ALONG  TRASSVISSION  PA’'" 

STCP 

IT 

CLJ 

FROH>  RV  TO  RX,  CM 

5‘T‘r? 

1 

CLJ 

NC  =  INITiailZA'ION  value,  normally  SET  TO  C  AN-  lERff 

$’‘EP 

19 

CLO 

TO  DS'l)  BEING  SET  TO  0.6. 

STFP 

CLJ 

XVJCO"  common 

S'^EP 

CLJ 

NS  =  N'JMB'^R  OF  SHELL  BOUNDARIES  In  A'MOSPHEPIC 

STEP 

<7 

CLJ 

TRANSMISSION  MODEL 

5TCP 

'N'J 

CLJ 

OUTPUT  PARAMETERS 

STEP 

CLJ 

APGLWENT  list 

S^EP 

CLJ 

NC  =  NLIMBER  OF  PATH  SEGMENTS  PLUS  ONE  ON  ''hc 

TEP 

CLJ 

’RANSMISSION  PATH  FROM  Rv  TO  RX,  OR  EOUl VAl-N'^.v , 

5^CD 

7“ 

CLJ 

the  number  of  ENDPO’N’S. 

ST  P 

2? 

CLJ 

FOR  Ui,NC 

STEP 

29 

CLO 

os;  1*1)  =  LENG’h  of  line  segment  I  ALONG  TRANSMiSSION 

T**. 

CLO 

PATH,  CM 

JTC  5 

clj 

NOiE...  IT  IS  alnavs  true  THA*  .0$''! '=P.  ANP 

S'^PP 

37 

CLO 

DS'NC*I'  =  -I.  'Turijc  TWO  MORE  VALUES  O'  PC 

y 

CLJ 

THAN  THERE  ARE  SEGMENTS,' 

S’EP 

nA 

CLJ 

XERACS'I'  -  (SEE  NO’E  IN  SUARPVTINE  ATMKAP' 

yr:- 

CLJ 

INOX';'  =  INDEX  0'  shell  BOUNDAR'  A’  OR  J'JSY  BEEncE  THE 

yro 

CLJ 

TAP’  OE  ’HE  line  SEG“EN*  I.  INDX  n:-  will  be  ’H; 

yy 

CLJ 

INP.FX  OE  the  Shell  SOUNPAR''  JUS’  Af’E®  the  LAS’ 

Clj 

ENOPOIS’. 

^TCp 

39 

CLJ 

mote...  INDX'NC*'.'  =  0 

S’E  p 

4" 

CLJ 

S-^rp 

•  • 

DIMENSION  DS'IOOJ,  xFRifSfloo',  INPX'IOC',  RX'J'.  SHA’M' 

yy 

4: 

common  /  xvJC'jM  !  IPM’E,  CFM’E,  NS,  hfhELL'S!',  TSfSi),  PS'S!'., 

S'^EP 

4} 

1  xnsoec'bi ,10' ,  u';'',;o,3',  L'R'i’,ip  >»*■'  s 

STTP 

44 

2  fact'  . . 

S’^EP 

4^1 

DA’A  ERAC  /  6.3X1C'3E*0P  / 

AE 

r 

ERAO  =  fthOV'i  WHEN  /CONCPN-  IS  ApDEP 

S^’EP 

4’ 

C 

3'EP 

4.= 

c 

DETERMINE  INITIAL  OIREC’ICN  OF  IN’EGRA'IOS 

RXADO’  '  DOT'  RX,  Shat  \ 

yco 

s  *'• 

IF  '  RXXPOT  '  2,  2,  1 

yy 

C  ' 

1 

SIGN  •  1. 

S'EP 

c  ■> 

IS  -  I 

<;’TC 

C  1 

GO  ’0  3 

r* 

c* 

2 

sign  -  -1. 

I  S  =  -! 

S^EP 

y 

f 

L 

INI’IAL'JE  COON’ERS  ANP  other  .AlUfF 

yry. 

y 

3 

BIO  .  DO’  BY  Bi  ' 

yc:^ 

3 


rtl  •  R*?  ' 

?tep 

-5Q 

R>;pT  :  Rirric*.»5 

S-rp 

eo 

If  I  NC  .EC.  0  '  CS'!'-  -  D. 

6! 

IF  (  l*C  .S'".  0  '■  '(C  =  NC  -  1 

CTTP 

6? 

XLC  =  0. 

6? 

SRAC  -  R*;. 

64 

NCF  =  0 

5’'£P 

ft 

IF  (  IS  .L^.  0  '  NSF  =  NS  ^  1 

SJ  EP 

hf 

N  =  N^T 

rs 

c 

SAVE  PREVIOUS  SH.aL  ISOEX 

S’EP 

e-p 

4 

nolo  •  N 

S'*’EP 

f- 

; 

STEP  TO  NEXT  SHELL 

CTCp 

70 

N  s  N  *  IS 

CTCD 

7  : 

c 

FEST  FOR  ATNOSRHFRF  LIMIT 

STEP 

7  ” 

IF  f  N  .EO.  0  ,0R.  N  .GT.  NS  )  GO  TO  7 

^FP 

7-? 

r 

LIROA’F  snaL  RACIOS 

STEP 

74 

SROLO  •  SRAD 

^T£P 

7E 

SRAO  =  era?  ♦  HShElLIN' 

TE 

IF  (  SiAD  .NE.  SROLD  )  XFRAC  =  FT>A:;  SRASi.  SROLO.  SAD,  RXl  ' 

S'’'E? 

I'f 

DISC  -  RKO?  -  ;  RX?  -  SRA.O**?  I 

5TP0 

7S 

c 

NEGATIVE  DISCRIMINANT  IMPLIES  NO  INTERSECTION 

S^P 

Ty 

IF  <  DISC  '  8,  5,  E 

<Trp 

PO 

4 

ONEW  AMAlif  S1GN*SCRT(  piSC  )  -  RXKDO''.  C.  1 

P! 

DELTA  =  PN-W  -  IKLO 

STEC* 

82 

IF  (  DELTA  -  1.E3  '  4.  4,  6 

STEP 

S? 

c 

UBD4TE  DISTANCE  AND  STORE  INTEGRATION  CELL  INfOR“.A’’!ON 

STEP 

6‘*‘ 

6 

DOLO  =  ONEW 

5T;P 

QC 

NC  =  NC  + 

STEP 

XFRACSI.NC!  •  X.FRAC 

STEP 

S’ 

INDX'NC'  =>  NOLO 

^TTP 

is 

c 

IGNORE  STER  TO  TOP  GF  ATNACSRpERE 

PS 

I'  I  nolO  ■G''.  ns  )  NC  ■  NC  -  1 

«;--rp 

0? 

OSi'NC^II  =  OFL-TA 

5T-C 

S’ 

c 

TEST  DISTANCE  LIMIT 

^TfD 

9? 

IF  (  O'ST  .GE.  0NEW*1.E3  '  nC  -  99  '  4,  10.  10 

S^EP 

0  • 

DS;nC*1'  =  DS'NC*’’  -  (  DNEK  -  OIS*  ' 

y.:r 

94 

c 

LAS*  FELL  ON  PATH 

9E 

7 

RiL  •  S.  RX?  ♦  ns***?  ♦  ?.  •  RXKOO’  •  DIST  ' 

STPP 

9f 

IF  <  H  'eo.  0  '  RXi  •  ftiac 

JTp 

Q" 

NC  =  NC  1 

S’ Ft' 

Qt 

IN.OX'NCI  •  lNPX^NC-11  •  IS 

STEP 

QS 

GS'NF-r  =  -1. 

S’E‘‘ 

XFrACS'NC'  =  fRac'  3!AC,  SPCLC,  R«..  SR-FlC-  ' 

■  *  * 

lNPX'NC+1’  =  0 

S’fP 

iS? 

RET'JOs 

S’EP 

'  '••■3 

IF  IN’EGRA'ION  mas  been  down,  CWIfCh  TO  L'P 

S  '[P 

:"4 

0 

IF  (  SIGN  '  R,  4,  4 

9 

SIGN  -  1. 

S’EP 

IS  ‘  1 

r'fr 

\  '■•  * 

r 

SE’  M-nPOIN*  OF  C'OPO  AS  AN  In'Eq; -''."s  P"IN'  'Eno  OF  CE,,  ' 

\  '*<? 

RXL  '  SCR’  OX?  -  RKO?  1 

ctp 

1 

ONEW  =  -RXKOT'' 

c^rp 

\ '  '• 

PEL'A  =  OnEfc  .  rpLO 

c z'  r  r 

IF  ;  OE.’A  -  l.E?  '  4,  4,  A 

;  ■;  ■ 

c 

DIMENSION  l!“I'  has  BEEN  ExCEEDE" 

c'rp 

' !  • 

1C 

INO'  RR'  t  INDx  99  ♦  IF 

S*  E' 

’ !  4 

V  cs  i;  s '  99 '  =  I . 

r*'  r  r 

'.  ^ 

NC  •  99 

c  T  r  r 

’.  ■>  c 

OS  '  I"iM  ■  ;  _  1  _ 

c’  r  t 

[not 'EOT  =  p 

r;'  r  r 

RE*  CRN 

r;*  r  p 

ENC 

S^EP 

■i 
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SUBROUTINE  STEPS  (  RX,  RT,  »C.  DS.  XERACS,  INDX  ) 

STEPS 

Z 

c 

STEPS 

3 

c 

•STEPS»  IS  U»  ENTRY  TO  ‘STEP*  WHEN  THE  PATN  IS  DEFINED  BT 

STEPS 

A 

c 

ITS  END  POINTS. 

STEPS 

5 

c 

STEPS 

6 

CLJ 

STEPS 

7 

aj 

INPUT  PWANETERS 

STEPS 

8 

CLJ 

ARGUMENT  LIST 

STEPS 

9 

CLJ 

RX(1)  .  LOCATION  VECTOR  TO  ONE  END  OF  TRANSMISSION  PATH. 

STEPS 

10 

CLJ 

TYPICALLY  BUT  NOT  NECESSARILY  AT  THE  DETECTOR,  CH 

STEPS 

11 

CLJ 

RY(1)  -  LOCATION  VECTOR  TO  ONE  END  OF  TRANWISSION  PATH, 

STEPS 

12 

CLJ 

typically  AT  THE  SCATTERING  OR  SOURCE  POINT,  CM 

STEPS 

13 

CLJ 

(FOR  R1  AND  RY  1.1.3) 

STEPS 

lA 

CLJ 

NC  .  initialization  value,  normally  set  to  0  aw  leads 

STEPS 

15 

CLJ 

TO  OS(U  BEING  set  to  0.0  IN  SUBROUTINE  STEP. 

STEPS 

16 

CLJ 

OlfTPUT  PARAMETERS 

STEPS 

17 

CLJ 

INTERNAL  USE  (FOR  CALL  TO  SUBROUTINE  STEP) 

STEPS 

18 

CLJ 

»AT(I)  .  unit  VECTOR  ALONG  TRAN9(ISS!0N  PATH  FROM  RY  TO  RX, 

STEPS 

19 

CLJ 

CM  (1.1.3) 

STEPS 

20 

CLJ 

OIST  =  NASNITUOE  OF  DISTANCE  ALONG  TRVI9XISS10N  PATH  FROM 

STEPS 

21 

CLJ 

RY  TO  RX,  CM 

STEPS 

22 

CLJ 

argument  LIST 

STEPS 

?3 

CLJ 

(FOLLOkiiNG  OUXWTITIES  ARE  OBTAINED  BY  A  CALL  TO  STEP) 

STEPS 

2A 

CLJ 

NC.  DS.  XFRACS.  AND  INOX.  (SEE  ‘STEP*  FOR  DEFINITIONS) 

STEPS 

25 

CLJ 

STEPS 

26 

DIMENSION  05(100),  XFRXCSdOO).  IN0X{100).  SHAT(3),  RX(3).  RY(3) 

STEPS 

27 

C 

STEPS 

2S 

C 

PATH  SEGMENTS  LESS  THAN  10  METERS  IN  LENGTH  ARE  NOT  TREATED  AS 

STE®S 

70 

C 

SEPARATE  INTEGRATION  STEPS. 

STEPS 

k) 

r 

STEPS 

31 

CLJ 

STEPS 

32 

CLJ 

SHAT  .  VECTOR  DIFFERENCE  BETVEEN  VECTORS  RT  AND  RX 

STEPS 

33 

CLJ 

OIST  .  MAGNITUDE  OF  VECTOR  SHAT 

STEPS 

34 

CLJ 

STEPS 

35 

CALL  SUBVEC  (  RY,  RX,  SHAT  ) 

DIST  .  SflRT(  00T(  SHAT.  SHAT  )) 

STEPS 

36 

STEPS 

37 

IF  (  OIST  .LT.  1.E3  )  RETURN 

STEPS 

38 

CLJ 

STEPS 

39 

CLJ 

OBTAIN  A  UNIT  VECTOR  ALONG  THE  VECTOR  WAT  AND  CALL  IT  SHAT 

STEPS 

40 

CLJ 

STEPS 

41 

CALL  UNITY  (  SHAT,  SHAT  ) 

STEPS 

42 

call  STEP  (  RX,  SHAT,  OIST.  NC,  OS,  XFRACS,  INDX  ) 

STEPS 

43 

RETURN 

STEPS 

A4 

END 

STEPS 

45 

SUBROUTINE  SUBVEC  (  VX,  YY.  OVXY  ) 

SUBVEC 

2 

CLJ 

SUBVEC 

3 

CLJ 

SUBROUTINE  SUBVEC  RETURNS  THE  DIFFERENCE  BEFREEN  VECTORS  VX 

SUBVEC 

4 

CLJ 

AMD  VY,  I.E.,  0WY(l-3)  «  VX{l-3)  -  Vr{l-3). 

SUBVEC 

CLJ 

SUBVEC 

6 

DIMENSION  VX(3).  VY(3).  0VXY(3) 

SUBVEC 

7 

CALL  VI  IN  (  OYTSY,  1.  .  VX,  -1,  ,  VY  ) 

SUBVEC 

8 

return 

SUBVEC 

9 

END 

SUBYEC 

X  rs 
1  Li 
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SUBROUTINE  SURRADnDETEC.MSM.DO.SPCULR.lUR.JUR.KUP.LUP.ZLW, 

SURRAD 

2 

J  IFIRES.RAD.UPS.UPPS.UCS.UPCS) 

SURRAD 

? 

ccc 

SURRAD 

A 

c 

subroutine  SURRAD  provides  (ESSENTIALLY).  AT  TilE  POINT  P  WHERE 

SURRAD 

5 

c 

THE  OPTICAL  L INE-OF-SIGHT  FRON  THE  DETECTOR  (WHICH  IS 

S'JRRAO 

6 

c 

FICTITIOUS  IN  THE  NBO  MODULE)  AT  POINT  V  INTERSECTS  THE 

SURRAD 

7 

c 

EARTH'S  SURFACE,  THE  UPWELLING  RADIANCE  DIRECTED  TOWARD  THE 

SURRAD 

8 

c 

DETECTOR.  SURRAD  PROVIDES  TWO  COMPONENTS  OF  THE  RADIANCE... 

SURRAD 

9 

c 

(1)  THERMALLY  EHinEO  AND  (?)  SOURCE  (SUN  OR  FIREB.ALL) 

SURRAD 

10 

c 

REFLECTED.  REFLECTED  SKY  RADIANCE  IS  NOT  INCLUDED.  STRICTLY. 

SURRAD 

11 

c 

THE  source-reflected  COMPONENT  tS  ACTUALLY  PROVIDED  IN  AN 

SURRAD 

12 

c 

'JNATTENUATED  FORM  TOGETHER  WITH  THE  PATH  PARCJ^ETERS  (AREAL 

SURRAD 

13 

c 

DENSITY  U  AND  UP,  WITH  P  THE  PRESSURE),  INTEGRATED  ALONG  THE 

SURRAD 

lA 

c 

INCOMING  PATH  FROM  THE  SOURCE,  REQUIRED  AS  INPUT  TO  A  COMPU¬ 

SURRAD 

15 

c 

TATION  OF  THE  MOLECULAR  ABSORPTION  OVER  A  TOTAL  PATH. 

SURRAD 

16 

c 

THE  AEROSOL  TRANSMITTANCE  ALONG  THE  INCOMING  PATH  FROM  THE 

SURRAD 

17 

c 

SOURCE  IS  also  PROVIDED. 

SURRAD 

18 

ccc 

SURRAD 

19 

c 

THE  STATISTICAL  CLOUD  SUBMODEL  HAS  NOW  BEEN  INCLUDED. 

SURRAD 

?0 

c 

SEE  SUBROUTINE  UPWELL  FOR  COWENTS. 

SURRAD 

21 

c 

NOTE  THAT  THE  INPUT  PARAMETERS  FOR  POINT  C  IN  POSITH  COIt«N 

SURRAD 

22 

c 

AND  IKM  IN  UPVELS  COWCN  FACILITATE  PROVIDING,  AS 

SURRAD 

23 

c 

ADDITIONAL  OUTPUTS  FOR  THE  PATH  FROM  THE  SUN  TO  POINT  C  AT 

SURRAD 

24 

c 

12-KM  altitude,  the  PATH  PARAMETERS  UCS  AND  UPCS  AND  THE 

SURRAD 

25 

c 

AEROSOL  TRANSMITTANCE  TASC(LUP). 

SURRAD 

26 

ccc 

SURRAD 

27 

c 

INPUT  PARAMETERS 

SURRAD 

28 

c 

ARGUMENT  LIST 

SURRAD 

29 

c 

lOETEC  -  FLAG  FOR  NATURE  OF  DETECTOR  LOCATION 

SURRAD 

30 

c 

-  1  IF  DETECTOR  IS  AT  A  SATELLITE  POSITION 

SURRAD 

31 

c 

(SATLAT.SATLON.SATALT)  SPECIFIED  IN 

SURRAD 

32 

c 

SATELL  CO»ON 

SURRAD 

33 

c 

'  2  IF  DETECTOR  IS  AT  A  POSITION  (DETLAT, 

SURRAD 

34 

c 

detlon.detalt)  specified  in  tector  COFWON. 

SURRAD 

35 

c 

THIS  LATTER  OPTION  IS  USED  WHEN  SUBROUTINE 

SURRAD 

36 

c 

SURRAD  IS  CALLED  FROM  SUBROUTINE  UPWELL. 

SURRAD 

37 

c 

MSM  -  INDEX  FOR  CATEGORY  OF  SURFACE  MATERIAL  (SEE 

SURRAD 

38 

c 

SUBROUTINE  ESURF  FOR  DEFINITIONS) 

SURRAD 

39 

c 

DO  -  ADOITIONAL  DESCRIPTOR  FOR  SELECTED  SURFACE 

SURRAD 

40 

c 

MATERIAL  (SEE  SUBROUTINE  ESURF  FOR  DEFINITIONS) 

SURRAD 

41 

c 

SPCULR  -  LOGICAL  PARAMETER 

SURRAD 

42 

c 

.TRUE.  COMPUTE  COORDINATES  OF  SPECULAR  REFLECTION 

SURRAD 

43 

c 

POINT  ON  A  SMOOTH  HORIZONTAL  WATER  SURFACE 

SURRAD 

44 

c 

.FALSE.  DO  NOT  COMPUTE  COORUINATES  OF  SPECULAR 

SURRAD 

45 

c 

reflection  POINT 

SURRAD 

46 

c 

EACH  OF  THE  FOLLOWING  FOUR  INDICES  SHOULD  BE  SET  TO 

SURRAD 

47 

c 

UNITY  IN  A  CALL  FROM  ANY  ROUTINE  OTHER  THAN  SUBROUTINE 

SURRAD 

48 

c 

UPWELL. 

SURRAD 

49 

c 

lUP  -  ALTITUOE-'cOOP  INDEX  IN  SUBROUTINE  UPWELL 

SURRAD 

50 

c 

JUP  -  NAD  IS -LOOP  INDEX  IN  SUBROUTINE  UPWELL 

SURRAD 

51 

c 

KUP  -  AZIM'ITH-LOOP  INDEX  IN  SUBROUTINE  UPWELL 

SURRAD 

52 

c 

LUP  -  WAVENUMBER-LOOP  INDEX  IN  SUBROUTINE  UPWELL 

SURRAD 

53 

c 

ZLAM  -  WAVELENGTH,  MICROMETERS 

SURRAD 

54 

c 

IFIRES  -  FLAG  FOR  NUMBER  OF  FIREBALLS 

SURRAD 

55 

c 

•  0  IF  NO  FIREBALL  IS  TO  BE  INCLUDED 

SURRAD 

56 

c 

(AS  IS  THE  CASE  IWEN  SUBROUTINE  SURRAD  IS 

SURRAD 

57 

c 

CALLED  FROM  SUBROUTINE  UPWELL.) 

SURRAD 

58 
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■  GT.  0  IF  IFIRFS  FIflFBALLS  ARE  TO  BE  INr  JPED  SIIRRAO  FT 

with  position  ANO  radiant  INTENSIT  SlIRSAP.  6- 

SPECIFIED  IN  FIRPAL  COMMON  SURRAD  61 

TECTOR  C0RH)N  (used  with  SltPROlITINE  UPWFLLi  S'IRRAD  F.'’ 

DETLAT  .  DETECTOR  NORTH  LATITUDE.  RADIANS  SlJRRAD  PT 

CETlON  -  detector  east  longitude,  radians  SURRAD  64 

DETALT  -  DETECTOR  ALTITUDE.  KM  SURRAT  6F 

FIRBAL  COMMON  (NOT  USED  WITH  SUBROUTINE  UPWELLl  SURRAP  66 

FBLAT(r)  -  FIREBALL-I  NORTH  LATITUDE,  RADIANS  SURRAP  67 

EBLONdl  -  tIREBALL-I  EAST  LONGITUOE,  RADIANS  SURRAP  6P 

FBALTdl  -  FIREBALL-I  ALTITUDE.  KM  SURRAP  69 

EBRINTdl  -  FIREBALL-I  SPECTRAL  RADIANT  INTENSITY.  SURPAD  70 

WATTS/ (SR  CM-1)  SURRAP  71 

POSITN  common  SURRAP  7? 

POSLAT  -  NORTH  LATITUDE  OF  POINT  P  AT  WHICH  LINE-OF-  SURRAP  73 

SIGHT  intersects  EARTH'S  SURFACE.  RADIANS  SURRAP  79 

POSLON  .  EAST  longitude  OF  POINT  P  AT  WHICH  LiNE-OF-  SURPAP  76 

SIGHT  intersects  EARTH'S  SURFACE,  RADIANS  SURRAP  76 

POSALT  -  altitude  OF  POINT  P  AT  WHICH  LINE-OE-SIGHT  S'IRRAP  77 

INTERSECTS  EARTH'S  SURFACE,  KM  SURRAP  76 

C12LAT  -  NORTH  LATITUDE  OF  POINT  C  AT  WHICH  LINE-OE-  SURRAP  79 

sight  intersects  the  1?-KM  ALTITUDE  SURFACE.  SURRAP  80 

RADIANS  SURRAP  81 

C12L0N  -  EAST  LONGITUDE  OF  POINT  C  AT  WHICH  LINE-OF-  SURRAP  B? 

SIGHT  intersects  the  !?-KM  ALTITUDE  SURFACE,  SURRAP  83 

RADIANS  SURRAP  89 

C12ALT  -  ALTITUDE  OF  POINT  C  AT  WHICH  LINE-OF-SIGHT  SURRAD  8S 

INTERSECTS  12-KH  Ai  TITiipr  <UIRFArF.  KM  BA 

iAVELL  COrMlN  I'fOT  USED  WITH  SUBROUTINE  UPWELL)  SURRAP  87 

SATLAT  -  sate  LITE  NORTH  LATITUDE,  RADIANS  SURRAP  88 

SATLON  -  satellite  EAST  LONGITUOE,  RADIANS  SURRAP  89 

SATALT  -  SATELLITE  ALTITUDE.  KM  SURRAP  90 

SOL  ARP  COWN  SURBAP  oi 

SOLLAT  -  SUBSOLAR  POINT  NORTH  LATITUDE,  RADIANS  SURRAP  9? 

50LL0N  -  SUBS01.AR  POINT  EAST  LONGITUDE,  RADIANS  SURRAP  91 

SOURCE  COMMON  SURRAP  99 

THE  VARIABLES  IN  THIS  COPflON  ARE  RETURNED  FROM  A  CALL  TO  SURRAP  96 

SUBROUTINE  RINOUT.  CURRENTLY  (APRIL  1980)  ONLY  THE  SUN  SURRAP  96 

IS  USED  AS  A  SOURCE  FOR  SUBROUTINE  SURRAP.  FIREBALLS  SURRAP  97 

ARE  NEVER  USED  IN  THE  CALL  TO  SUBROUTINE  SURRAD  FROM  SURRAP  or 

SUBROUTINE  UPWELL.  SURRAP  99 

SURRAP  lOP 

SRCZEN(l)  -  ZENITH  ANGLE  0^  RAY  INCOMING  TO  POINT  P  FROM  SURRAP  101 

THE  SUN.  RADIANS  SURRAP  10? 

SRCZEN(L+1 1.  Ld.IFIRES  (NOT  USED  WITH  SUB,  UPHELD  SLIRhAP  103 

-  ZENITH  ANGLE  OF  RAY  INCOMING  TO  POINT  P  FROM  SURRAP  !P9 

FIREBALL-L.  RAOIANS  SURRAP  106 

SRCSRIL+I),  L-l.IFIRES  (NOT  USEO  WITH  SUB.  UPWELL)  SURRAP  10b 

-  SLANT  RANGE  FROM  EJREBALL-L  TO  POINT  P,  KM  SURRAO  10' 

UPWELS  COWN  SURRAP  lOB 

NHAVF(JBANn)  SURRAP  IPo 

-  NUMBER  OF  WAVENUMBERS  AT  WHICH  THE  UPHELLING  SURRAD  110 

SPECTRAL  RADIANCE  IS  TO  BE  COMPUTED  FOR  SURRAP  111 

BROAD-BAND  LOOP-INDEX  JBANO  SURRSP  II? 

IDAYV  -  INDEX  FOR  DAYLIGHT  CONDITION  AT  SUB-V-POINT  SURRAP  113 

-  0  IF  SOLAR  ZENITH  ANGLE  .GT.  90  DEGREES  SURRAP  119 

-  1  IF  SOLAR  ZENITH  angle  .LE.  90  DEGREES  SUPRAP  116 


2Hb 
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IKM  -  INDFX  FOR  NUMBER  OF  ALTITUDES  AT  WHICH  5URRA0  116 

calculations  are  MADE  WHEN  CLOUDS  ARE  INCLUDED.  SURRAD  117 

(SET  IN  SUBROUTINE  UPWEILI  SURRAD  IIS 

XTZCOM  cot  MON  SURRAD  HR 

NS  -  NUMBER  OF  BOUNDARY  ALTITUDES  USED  IN  SURRAD  170 

SUBROUTINE  SHELLS  SURRAD  171 

DATA  statement  SURRAD  17? 

NSPECS  -  NUMBER  OF  SPECIES  IN  FOLECULAR  TRANSMITTANCE  SURRAD  177 

MODEL  SURRAD  !?A 

NTEMP  -  NUMBER  OF  TEMPERATURE  BINS  IN  MOLECULAR  SURRAD  1?S 

TRANSMITTANCE  MODEL  SURRAD  1?6 

SURRAD  177 

OUTPUT  PARAMETERS  SURRAD  17R 

ARGUMENT  LIST  SURRAD  129 

RAD(11  -  RADIANCE  EMITTED  FROM  POINT  P  TOWARD  DETECTOR,  SURRAD  130 

WATT5/(CM**2  SR  CM-l)  SURRAD  131 

RAD(2)  -  RADIANCE  OF  SOLAR  REFLECTED  RADIATION  (WITH  SURRAD  132 

INCOMING  RAY  UNATTENUATED),  W/fCM**?  SR  CM-1)  SURRAD  133 

RAD(L*2),  L=1,IFIRES  (NOT  USED  WITH  SUBROUTINE  IPWELL)  SURRAD  134 

-  radiance  of  FIREBALL-L  RADIATION  REELECTED  SURRAD  13S 

TOWARD  DETECTOR  (WITH  INCOMING  RAY  UNATTEN-  SURRAD  136 

UATEO),  WATTS/ (CM**?  SR  CM-1)  SURRAD  137 

UPS(I.N,1)  -  AREAL  DENSITY  FOR  TEMPERATURE  I  AND  SPECIES  SURRAD  13B 

N  Along  incoming  solar  path  to  point  on  surrad  139 

EARTH'S  SURFACE,  CM  AT  STP  SURRAD  140 

(COMPUTED  ONLY  FOR  LUP=1)  SURRAD  141 

UPS{I.N,L*1),  L=l,tFIRES  (NOT  USED  IN  NBR  MODULE)  SURRAD  142 

-  AREAL  DENSITY  FOR  TEMPERATURE  I  AND  SPECIES  N  SURRAD  143 

‘-LONG  path  from  FlREBALL-L  TO  POINT  P  ON  SURRAD  144 

EARTH’S  SURFACE,  CM  AT  $TP  SURRAD  145 

(COMPUTED  ONLY  FOR  LUP=1'  SURRAD  146 

UPPS(I.N,1)  -  PATH  PARAMETER  UP  (PRODUCT  OF  U  AND  SURRAD  147 

PRESSURE  P)  FOR  TEMPERATURE  I  AND  SPECIES  SU»RAD  148 

N  ALONG  INCOMING  SOLAR  PATH  TO  POINT  P  ON  SURRAD  149 

EARTH'S  SURFACE,  ATM-CM  AT  STP  SURRAD  ISO 

(COMPUTED  ONLY  FOR  LUP=l)  SURRAD  151 

UPPS(I,N,L*ll,  1=1,IF1RES  (NOT  USED  IN  NBR  MODUIEI  SURRAD  15? 

-  PATH  parameter  up  (PRODUCT  Of  U  AND  PRESSURE  P)  SURRAD  1S3 

FOR  TEMPERATURE  1  AND  SPECIES  N  ALONG  PATH  FRO“  SURRAD  1S4 

fireball-1  to  point  P  on  EARTH'S  SURFACE,  SURRAD  1S5 

ATM-CM  AT  STP  SURRAD  156 

(COMPUTED  ONLY  FOR  LUP=1'  SURRAD  157 

UCSi'I.N),  -  SIMILAR  TO  UPS(I,N,li  AND  UPPS(I,N,1)  SURRAD  15P 

UPCSd.N)  EXCEPT  POINT  P  IS  REPLACED  BT  POINT  C,  SEIRRAD  159 

AIRSOL  CnWGN  SURRAD  160 

TASP(LUP1  IUP=:,NWAVE(0BAN01  SURRAD  16I 

-  AEROSOL  transmittance  FOR  INCOMING  SOLAR  PAY  TO  SURRAD  167 

POINT  P  ON  GROUND.  SURRAD  1F3 

TASC(LUP)  LUP^I.NHAVE(JBAND)  SURRAD  164 

-  AEROSOL  TRANSMITTANCE  FOR  INCOMING  Sm  sp  pat  tn  $iii)CAn  in 

POINl  C  AT  12-NM  ALTITUDE.  SURPAD  166 

TAFP(L)  -  AEROSOL  TRANSMITTANCE  FOR  INCOMING  RAY  FROM  SURRAD  16’ 

FIREBALL-L  TO  POINT  P  ON  GROUND  SURRA.T  16“ 

SOLARP  CO"WnN  SURRAD  lAR 

SOLIRRIK)  R=1.NWAVE(JBAND)  SURRAD  170 

-  SOLAR  spectral  IRRADIANCE  AT  THE  TOP  OF  THE  S'JRRAD  dl 

EARTH'S  atmosphere  AT  WAI/ENUMBER-InDEI  K  SURRAD  177 
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c 

ccc 


cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 


DIMENSION 
COWON/AIRSOL/ 
COWON/EIRBAL/ 
COmON/POSITN/ 

i 

COWON/SATELL/ 

COWCN/SOLARP/ 

COHON/SOUfiCE/ 

COt*CN/TECTOR/ 


WATTS  /  (  CM**2  CM-1  ) 

DIMENSION  RF(3).RP(3).RC(3),RS(3),PLNCK(10) 

DIMENSION  00(7), RAD(1?).UPS{  10. 10,11). UPPSdO.TO.U), 

S  UCS(10,10)  .UPCSdO.lO) 

OSdOO),XFRACS(100).INOXdOO) 

TASP  dO ) .  TASC  { 10 ) ,  TAF  P  dO) 

FBLATdO)  .FBUONdO)  ,F8ALT(  10)  .FBRlNTdO) 

PO SLAT, PO SCON. PO SALT. SPCLAT. SPCLON 
,Cl?LAT,Cl?LON,Ci?ALT 
SAIL AT ,  SATLON . SAT ALT , SATZEN . SATA2 1 
SOLLAT.SOLLON.SOLIRRdO) 

SRCLAT.SRCLON.SRCALT.SRCFLG.SRCZENdD.SRCSRdl) 
OETLAT.OETLON , OETALT.UETZEN .DETAZ 1 (11) 
COmON/UPMELS/  U?WALT.UPWLON.UPWLAT,NALT(5).ZKMd3,5),NNADIR.NAZl, 

*  MWAVE(5),IDAYV.CLDFLG.UPRA0«d3,10,5).WVd0.5),IKM, 

*  NBANDS 
COMMON/UPWELSl/ 

?  R010!6,10).R010A(6.10,10),R010N(6,10), 

3  fi025(6,10).RO?5A(6.10.10).R025N(5.10), 

A  R050(6.10).R050A(6,10.10),R050N(6,10), 

5  RO9O(6,lO),ROSOA(6.1O.lO).R09ON(6.10). 

6  R100(6,10).R100A(6. 10.10). R10ON(5, 10) 

7  .ARCVA(6.10.10).ARCVN[6.1D) 
COMMON/UPWELS?/  JSANDl 

C0HCN/UPHELS3/  UPRAD(6. 10) ,UPRA0Ad3, 10.10) 

COlWON/  XYZCOM/  ITMTE,L7MTE.NS,HSHELL(81).TPX(81.12), 

1  UdO.lO,  2). UPdO.lO.Z). NMOLS, FACT 

LOGICAL  FIRST. SPCULR.ESURFl 
DATA  RSUN  /  1.495979E+08  / 

DATA  NSPECS.NTEMP  /  10,10  / 

SUBROUTINE  SURRAO  IS  CALLED  FROM  SUBROUTINE  UPWELL  FOR  ALL 
VALUES  OF  I.J.K.L.  HOWEVER,' SWITCHES  ELIMINATE  REDUNDANT 
CALCULATIONS.  FOR  EXAMPLE. 

*  CALL  TO  FUNCTION  PLANCX  DEPENDS  ONLY  ON  L. 

*  CALL  TO  SUBROUTINE  SOLRAD  DEPENDS  ONLY  ON  L. 

*  PATH  PARAWTERS  FOR  PATH  FROM  POINT  p  TO  SUN  ARE 
INDEPENDENT  OF  L  AND  ARE  ASSUMED  (TO  A  GOOD  APPROXIMATION) 
TO  BE  INDEPENDENT  OF  I.J.K. 

LIKEWISE  FOR  POINT  C,  EXCEPT  THAT  ITS  ALTITUDE  IS  NOT  0.0 
BUT  12  KM. 

*  AEROSOL  TRANSMITTANCE  FROM  POINT  P  TO  SUN  DEPENDS  ONLY  ON  L 
AND  THE  (ASSUMED)  SINGLE  PATH. 

*  AEROSOL  TRANSMITTANCE  FROM  POINT  C  TO  SUN  DEPENDS  DNLY  ON  L 
AND  THE  (ASSUMED)  SINGLE  PATH. 

IF(  LUP.GT.l  )  GO  TO  5 

determine  whether  detector  is  in  SATELLITE  SPECIFIED  IN 
SATELL  COWX.  IDETEC*2  when  SUBROUTINE  UPWELL  CALLS 
SUBROUTINE  SURRAD. 

IF(  lOETEC.EO  2  )  GO  TO  1 

detector  is  at  satellite.  SO  RESET  DETECTOR  LOCATION. 

DETLAT  -  satlat 
DEFLON  =  SATLON 


SURD AD 

173 

SURRAD 

174 

SURRAD 

175 

SURRAO 

176 

SURRAD 

177 

SURRAD 

178 

AIRSOL 

2 

FIRBAL 

2 

POSITN 

2 

positn 

3 

SATELL 

2 

SOLARP 

2 

SOURCE 

2 

tector 

2 

UPWELS 

2 

UPWELS 

3 

UPWELS 

4 

UPWELS 

5 

UPWELS 

6 

UPWELS 

7 

UPWELS 

8 

UPWELS 

9 

UPWELS 

10 

UPWELS 

1! 

XYZCOM 

2 

XYZCOM 

3 

XYZCOM 

4 

XYZCOM 

5 

SURRAD 

188 

SURRAD 

189 

SURRAD 

190 

SURRAD 

191 

SURRAD 

192 

SURRAO 

193 

SURRAD 

194 

SURRAD 

195 

SURRAD 

196 

SURRAD 

197 

SURRAD 

198 

SURRAD 

199 

SURRAO 

200 

SURRAD 

201 

SURRAD 

202 

SURRAD 

20’ 

SURRAD 

204 

SURRAD 

205 

SURRAD 

206 

SURRAD 

207 

SURRAD 

208 

SURRAD 

209 

SURRAD 

210 

SURRAD 

211 

SURRAD 

21? 

SURRAD 

213 

SURRAD 

214 

SURRAD 

215 

SURRAD 

216 

288 


DETALT  =  SATALT 

SURRAD 

217 

cc 

FIRST.  CONSIDER  ONLY  THE  SUN  AS  A  SOURCt  AND  ALSO  GET  DETECTOR 

SURRAO 

218 

cc 

ZENITH  AND  (IF  HSM.ST.2  AND  IDAY-l)  AZIMUTH  ANGLES  FOR  SUN 

SURRAD 

219 

cc 

AS  SOURCE 

SURRAD 

220 

cc 

S'JRRAD 

221 

1  CALL  RIHOUT(MSM,  0  ,IOAY) 

SURRAD 

222 

cc 

SURRAD 

223 

cc 

NOW  HAVE  lOAY  AT  POINT  P,  OETZEN.  (IF  lDAY-1)  SRCZEN(l),  AND 

SURRAD 

224 

cc 

(IF  IDAY-1  AND  MSM.6T.2)  OETAZl(l). 

SURRAD 

225 

cc 

SURRAD 

226 

cc 

THE  COMPLICATIONS  RESULTING  FROM  THE  SOLAR  TERMINATOR  BEING 

SURRAO 

227 

cc 

VISIBLE  FROM  POINT  V  ARE  HOT  HANDLED  IN  A  COMPLETELY 

SURRAO 

228 

cc 

CONSISTENT  HAY.  IF  SUBPOINT  V  IS  IN  DAYLIGHT  (IDAYV^l),  THE 

SURRAO 

229 

cc 

DIURNAL  CONDITION  AT  EACH  POINT  P  (AS  INDICATED  BY  INDEX  IDAY) 

SURRAO 

230 

cc 

IS  RECOGNIZED.  BUT  IF  SU6F0INT  V  IS  IN  DARKNESS  (IDAYV=0). 

SURRAD 

231 

cc 

THEN  DARKNESS  IS  IMPOSED  ON  ALL  POINTS  P  BY  SETTING  1DAY=0. 

SURRAD 

232 

cc 

SURRAD 

233 

IF( 

IDAYV.EQ.O  )  IDAY  =  0 

SURRAD 

234 

cc 

SURRAD 

235 

cc 

IFIRES-0  WHEN  SUBROUTINE  UPWELl  CALLS  SUBROUTINE  SURRAB. 

SURRAD 

250 

1F( 

IFIRES.CT.O  ]  CALL  RINOUT(MSM.IFIR£S, IDAY) 

SURRAD 

237 

cc 

NOW  HAVE  ZENITH  ANGLES  SRCZEN(L+1)  AND  SLANT  RANGES  SRCSR(L+1) 

SURRAO 

238 

cc 

OF  FIREBALL-L  (L=1.IFIRES)  AND  DETECTOR  AZUATTHS  DETAZ1(L*1). 

SURRAD 

239 

cc 

SURRAO 

240 

cc 

SET  PARAMETERS  TO  CALL  ESURF  FOR  SUN  AS  SOURCE. 

SURRAD 

241 

THl 

-  -1.0 

SURRAD 

242 

PS  I 

-  -1.0 

SURRAO 

243 

tF( 

lOAY.EQ.l  )  THI  •  SRCZEN(l) 

SURRAO 

244 

IP( 

(IDAY.EO.l)  .AND.  (MSM.GT.Z)  )  PSl  -  DETAZI(l) 

SURRAD 

245 

THR 

.  DETZEN 

SURRAO 

246 

HHH 

-  POSALT 

SURRAD 

247 

5  COHTINUE 

SURRAO 

248 

cc 

CALL  ESURF  WITH  ESURFl  SH  TO  .TRUE.  SINCE  HE  WANT  ALL  THREE 

SURRAD 

249 

cc 

OUTPUTS  (SFR,  EPSO,  TKS).  NOTE  THAT  EVERY  CALL  TO  ESURF  FROM 

SURRAD 

250 

cc 

SURRAO  (HITHIN  N8R  NODULE)  OOALIFIES  AS  A  FIRST  CALL. 

SURRAD 

251 

ESURFl  •  .TRUE. 

SURRAD 

252 

CALL  E$URF(THI. THR. PSI.HHH.MSM.DD.SPCULR.ZLAM.IDAY.IFIRES, ESURFl, 

SURRAD 

263 

t  SFR.EPSO.lXSl 

SURRAD 

254 

cc 

SURRAD 

255 

cc 

BYPASS  PRINT  OF  CPSO  AND  TKS  UNLESS  INDICES  I.  0,  K,  AND  L  IN 

SURRAD 

256 

:c 

SUBROUTINE  UFHELL  (KNOWN  HERE  AS  lUP,  JUP.  KUP,  AND  LUP)  HAVE 

SURRAD 

257 

cc 

VALUES  OF  UNITY.  HOWEVER,  WE  AND  THE  CODE  RECOGNIZE  THE  FACT 

SURRAD 

258 

cc 

THAT  WHEREAS  TXS  DEPENDS  ONLY  ON  THE  SURFACE  ALTITUDE.  EPSO 

SURRAO 

259 

cc 

DEPENDS  ON  ANGLE  AND  WAVELENGTH. 

SURRAD 

260 

cc 

SURRAO 

261 

IJK 

•  lUP  ♦  JUP  +  KUP 

SURRAD 

262 

IJKL  •  IJX  +  LUP 

SURRAD 

263 

cc 

HE  AVOID  USING  THE  QUANTITY  ( IKM+JUP+KUP+LUP)  BECAUSE  THE 

SURRAD 

264 

cc 

NINIMUN  VALUE  OF  IKM  IS  0.  THEREFORE.  WE  USE... 

SURRAD 

265 

JK 

-  JUP  +  KUP 

SURRAD 

266 

JKL 

•  JK  *  LUP 

SURRAD 

267 

IF{ 

IJKL  .EO.  A  )  HRITE(6.111)  EPSO.TKS 

SURRAO 

268 

111  F0R«AT(1H0,1X  •  tPSO,  TXS  -  •,  1P?E1*.6  •  (FROM  SUBROUTIME  SURRRD  SURRAP 

269 

S.  FORMAT  111)*) 

SURRAD 

270 

CC 

SURRAD 

271 

cc 

NOW  HAVE  EPSO,  TKS.  AND  (IF  IDAY-l)  SFR. 

SURRAO 

272 

CC 

ALSO.  IF  IDAY-1.  MSM-2,  AND  SPCULR-.TRUE. .  HE  HAVE  (TWOOGH 

SURRAD 

273 

289 


cc 

POSITN  COMMON)  THE  COORfiNATES  f SPCLAT.SPCLON)  OF  THE  SOLAR 

SURRAD 

?74 

cc 

SPECULAR  reflection  POIN'  ON  A  SMOOTH  HORIZONTAL  WATER  SURFACE 

SURRAD 

275 

cc 

COMPUTEO  IN  CLITTR.  TO  FACITATE  PRESEOVING  THESE  COORDINATES, 

SURRAD 

276 

cc 

DEFINE  NEW  VARIABLES. 

SURRAD 

277 

cc 

SURRAD 

27R 

SSPLAT  =  SPCLAT 

SURRAD 

279 

SSPLON  =  SPCLON 

SURRAD 

230 

cc 

IF  these  coordinates  prove  TO  BE  OF  INTERE*":,  ADDI'^IONAL 

S'JRRAu 

28! 

cc 

PRESERVING  variables  WILL  BE  NEEDED  AS  SUBROUTINE  liPHELL 

rUfli'  AD 

282 

cc 

LOOPS  OVER  altitudes. 

C’.'PRAn 

283 

cc 

SURRAD 

284 

cc 

BYPASS  CALL  TO  FUNCTION  PLANCK  UNLESS  INDICES  I.J.  AND  K  IN 

SURRAD 

285 

cc 

SUBROUTINE  UPWELL  (KNOWN  HERE  AS  JUP.JUP,  AND  KUP)  HAVE 

SURRAD 

286 

cc 

VALUES  OF  UNITY. 

SURRAD 

287 

IF(  IJK.GT.3  )  GO  TO  10 

SURRAD 

288 

W  =  1.0E+04/ZLAM 

SURRAD 

289 

PLNCK(LUP)  «  PLANCK(TKS.N) 

SURRAD 

290 

10 

CONTINUE 

SURRAD 

291 

RAO(l)  «  EPSO  *  PLNCK(LIJP) 

SURRAD 

29? 

cc 

NOW  HAVE  EMITTED  SPECTRAL  RADIANCE.  RAD{1). 

SURRAD 

293 

cc 

SURRAD 

294 

RA0(2)  =  0.0 

SURRAD 

295 

IF(  IDAYV  .EQ.  0  i  GO  TO  50 

SURRAD 

296 

cc 

SURRAD 

297 

cc 

ASSUME  PATH  PARAMETERS  FROM  POINT  P  TO  THE  SUN  ARE  EFFECTIVELY 

SURRAD 

298 

cc 

INDEPENDENT  OF  THE  POINT  P  LOCATION  ON  THE  SURFACE.  THUS, 

SURRAD 

299 

cc 

BYPASS  ZEROING  PATH  PARAMETERS  HERE,  AND  THEIR  COMPUTATION 

SURRAD 

300 

cc 

later,  unless  IUP=JUP’'KUP-LUP=1. 

SURRAD 

301 

IF(  IJKL.GT.4  )  GO  TO  21 

SURRAD 

302 

DO  20  N=l.NSPECS 

SURRAD 

303 

DO  20  I=1,NTEMP 

SURRAD 

304 

U  PS(I,N,1)  •  0.0 

SURRAD 

305 

UPPSd.N,!)  »  0.0 

SURRAD 

306 

?0  CONTINUC 

SURRAD 

307 

21 

CONTINUE 

..LIRRAD 

308 

cc 

SURRAD 

309 

cc 

ALSO  ASSUME  PATH  PARAMETERS  FROM  POINT  C  TO  THE  SUN  ARE 

SURRAD 

310 

cc 

EFFECTIVELY  INDEPENDENT  OF  THE  POIN-^-C  LOCATION  ON  THE  12-KM 

SURRAD 

311 

cc 

altitude  SURFACE.  THUS  BYPASS  ZEROING  PATH  PARAMETERS  HERE, 

SURRAD 

31? 

cc 

AND  THEIR  COMPUTATION  LATER,  UNLESS  IKM=JUP-KUP=LUP=1  . 

SURRAD 

313 

IF(  (  IKM  .NE.  1  }  .OR.  (  OKL  .CT.  3)1  GO  TO  23 

SURRAD 

314 

00  22  N=1,NSPECS 

SURRAD 

315 

00  22  1=1,NTEMP 

SURRAD 

316 

U  CSd.N)  «  0.0 

SURRAD 

317 

UPCSd.N)  *  0.0 

SUPRAD 

318 

22 

CONTINUE 

SURRAD 

319 

23 

CONTINUE 

SURRAD 

320 

cc 

SURRAD 

321 

cc 

IF  SUN  IS  PRESENT.  GET  THE  SOLAR  SPECTRAL  IRRADIANCE 

SURRAD 

32? 

cc 

E  (W/IC“«2  CM-D)  AT  THE  TOP  OF  THE  ATMOSPHERE. 

SURRAD 

323 

cc 

BYPASS  CALL  TO  SUBROUTINE  SOLRAD  UNLESS  lUR- JUP*KUP=1 . 

SURRAD 

324 

IF(  1JK.GT.3  )  GO  TO  Zj 

SURRAD 

325 

call  S0LRA0(3,W,EI 

SURRAD 

326 

SOLIRR(LUP)  »  E 

SURR  AD 

37^ 

NWAVEJ  -  HWAVE( JBANDl) 

SURRAD 

328 

1F(  LUP  ,E0.  NWAVEJ  )  WRITE(6.125)  ( SOI  IRR(LP) ,LP  =  1 ,NWAVE j' 

SURRAD 

329 

1?5  FORMAT  (1H0,28X,77H*  •  *  50CAP  SPECTRAL  IRRAOIANCE  SOlIRP'Ll,  (L=l 

SURRAD 

330 

2^0 


S.NUAVFJl,  U/{CM**?  c»-l)  *  *  »/48X.*(FROM  SUBROUTINE  SURRAD.  FORMA 

SURRAO 

33! 

ST  125)*/?X.irHOElC,4M 

SURRAO 

33? 

25  CONTINUE 

SURRAO 

333 

cc 

SURRAO 

334 

cc 

COMPUTE  spectral  radiance  OF  (UNATTFNUATEO)  DIRECT  SOLAR 

SURRAO 

335 

cc 

RADIATION  PEFuECTED  FROM  EARTH  SURFACE  AT  POINT  P  TOWARDS 

SURRAO 

336 

cc 

POINT  V. 

SURRAO 

337 

RAD(2)  =  SFR  •  SOLIRR(LUP')  ♦  CCS'TH!) 

SURRAO 

33S 

cc 

SURRAO 

S’Q 

IF(  IJKL  .GT.  4  )  GO  TO  2T 

SURRAO 

340 

cc 

SURRAO 

341 

cc 

PREPARE  TO  GET  PATH  PARAMETERS  FOR  PATH  FROM  POINT  P  TO  SUN, 

SURRAO 

34? 

IX 

WHICH  CARRIES  THROUGH  TO  STATEMENT  LABEL  41. 

SURRAO 

343 

cc 

SURRAO 

344 

cc 

OBTAIN  EARTH-CENTEREO  CARTESIAN  COORDINATES  OF  POINT  P. 

SURRAD 

345 

CALL  6EOXY2(POSALT.POSLAT.ROSLON.RP(1),RP(?).RP(3)) 

SURRAD 

346 

CALL  VLIN(RP.1.0E+05.RP,0.0,0.0', 

SURRAO 

347 

cc 

SURRAD 

34£ 

cc 

NEED  TO  determine  LOCATION  OF  SUN. 

SURRAD 

345 

CALL  GEOXY2'RSUN.SOLLAT,SOlLON,RS(1),RS(2}.RS(3)) 

SURRAD 

3S0 

CALL  VLIN'RS,1.0E+05,RS,0.0,0.0) 

SURRAD 

351 

cc 

HAVE  NOW  determined  RP  AND  RS. 

SURRAO 

35? 

cc 

SURRAD 

353 

cc 

INIT1ALI2E  NC  SO  THAT  OS(l)  WILL  BE  SET  TO  0.0  IN  SUBROUTINE 

SURRAD 

3Si 

cc 

STEP. 

SURRAD 

3S5 

NC  -  0 

SURRAO 

3SB 

CALL  STEPS(  RP.RS.MC.OS.XFRACS.INOX  ) 

SURRAD 

357 

cc 

NOW  have  HC.  os.  XFRACS,  and  INOX  FOR  PATH  FROM  S  TO  P. 

SURRAD 

35B 

cc 

SURRAD 

359 

cc 

1NITIALI2E  LOGICAL  VARIABLE,  FIRST,  IN  PREPARATION  FOR  FIRST 

SURRAO 

360 

cc 

CALL  TO  SUBROUTINE  PATH. 

SUR=AO 

36! 

FIRST  =  .TRUE. 

SURRAO 

36? 

27  CONTINUE 

SURRAD 

363 

cc 

SURRAD 

■>(.i 

IF(  IJX  .GT.  3  )  GO  TO  31 

SURRAD 

365 

cc 

BEFORE  STARTING  00-30  LOOP,  OBTAIN  THE  AEROSOL  EXTINCTION 

SURRAO 

266 

cc 

COEFFICIENT  at  THE  INITIAL  ENDPOINT  OF  THE  PATH. 

SURRAD 

36? 

TASP{LUP)  •  1.0 

SURRAD 

36® 

Ll  *  INOX(l)  S  L2  =  INDX(2) 

SURRAD 

369 

HSP  =  XERACS(l)  *  HSHELL(Ll)  *  (l.-XFRAC5(lll  •  HSHELlCL2) 

SURRA.P 

370 

CALL  AEROSCK.  (  HSP, 2LAM.XXSCT,XXABS,GBAR  ) 

SLIP  RAD 

371 

XXEXTP  =  XKSCT  ♦  XXABS 

SURRAD 

37? 

00  30  0=1, HC 

SURRAO 

373 

cc 

ON  THE  PASS  FOR  WHICH  J=NC,  PSlNC+1)  WILL  BE  -1.0,  INDICATING 

SURRAO 

374 

cc 

THAT  THE  LAST  SEGMENT  HAS  BEEN  PROCESSED.  (THE  LOOP  CO’JLO 

SURRAD 

3'’5 

cc 

HAVE  BEEN  FROM  JO  TO  J=NC-1  AND  THE  FOLLOWING  TEST 

SURRAO 

3?6 

cc 

eliminated.) 

SURRAD 

3’? 

1F(  DS(J+I).LT.0.0  )  go  to  30 

SURRAO 

375 

IF[  IJKL  .EO.  4  )  CALL  path'  F IRST, !NDX( J) ,OSf J+1 ) .XFRACSI J)  ) 

SURRAD 

T?® 

Ll  =  INDX(  J  )  J  L2  •  IN0X(J*1' 

SURRAO 

HSO  *  XFRAC5(J+1)  *  HSHELL(L2)  ♦  Il.-XFKACSOl))  •  H5HELL(Lll 

SURRAO 

3P! 

CALL  AEROSOL  {  H5Q.2LAM. XKSCT, XXABS.GBAR  1 

SiJRRAO 

3R? 

XKFXTO  =  XKSCT  4  JKABS 

SURRAD 

3?’3 

XKEXT  =  ACC(P<(  2, 0.,DS(j4n,XKEXTP, XKFXTO. 0.,DS(04ll  )  /  DS'OMI 

S'IRRAO 

3R4 

TASP(LUP)  =  TASP(LUP)  *  EXP(  -XKEXT*0S' 0*1)  ) 

SLIP  RAP 

3S5 

XKEXTP  •  XKEXTQ 

SURRAD 

S'!  continue 

SURRAO 

78' 

2qi 


r 

■ 

.  *■ 

31  CONTINUE 

SURRAD 

388 

cc 

NON  HAVE  PATH  PARAKTERS  U  AND  UP  FOR  SOLAR  RAY  TO  POINT  P. 

SURRAD 

389 

cc 

SINCE  THESE  PATH  PARAMETERS  ARE  INDEPENDENT  OF  MAVELENGTH, 

SURRAD 

390 

cc 

THEY  HEED  BE  COWIITEO  ONLY  ONCE. 

SURRAD 

391 

cc 

ALSO  HAVE  AEROSOL  TRANSMinAHCE,  TASP(LUP).  FOR  SOLAR  RAY  TO 

StAtRAD 

392 

cc 

POINT  P,  WHICH  IS  WAVELENGTH  DEPENDENT. 

SURRAD 

393 

IF(  IJKL  .GT.  4  )  GO  TO  41 

SURRAD 

394 

cc 

REDEFINE  variables. 

SURRAD 

395 

DO  40  H-1,NSPECS 

SURRAD 

396 

■ 

DO  40  I-1,HTE» 

SURRAD 

397 

U  PS'I.N.l)  •  U  (I.N,2) 

SURRAD 

393 

UPPS(l.H.l)  -  UPd.H.J) 

SURRAD 

399 

40  CONTINUE 

SURRAD 

400 

HRITE(6.140) 

SURRAD 

401 

140  FORHAT  (1H0.44X,43H*  •  •  PATH  PAftAMrTERS,  POINT  ?  TO  SUN  *  »  */46X 

SURRAD 

40? 

S,«(FROM  SUBROUTINE  SURRAD.  FORMATS  140,142)*/2X.*TEMPEHATUfiE/SPECI 

SURRAD 

403 

JES.  ((UPS(M,N.n.N=l,NSPECS).M*l,2)*) 

SURRAD 

404 

HRITE(6.141)  ((M.  (U  PS(M,N,1).H=1.NSPECS)).M-1.2) 

SURRAD 

405 

141  FORMAT  (2X.I3,1P10E12.4) 

SURRAD 

406 

WRITE(6.142) 

SURRAD 

407 

142  FORMAT  (1H0.1*.«TEHP£RATURE/SPECIES.  ((UPPS(M.H,1),N=1.NSPECS).M-1 

SLRRAD 

408 

1.2)*) 

SURRAD 

403 

1«ITE(6.141)  ((M,  (UPPS(M.N,1).H*1.NSPECS)).M=1,2) 

SURRAD 

410 

41  CONTINUE 

SURRAD 

411 

cc 

SURRAD 

412 

CC 

SURRAD 

413 

cc 

PARAMETERS  FOR  PATH  FROM  S  TO  C  MEED  BE  DONE  ONLY  ONCE. 

SURRAD 

414 

. 

IF(  (  IKM  .NE.  1  )  .OR,  (  JK  .GT.  2  )  )  SO  TO  50 

SURRAD 

415 

IF(  LUP  .GT.  1  )  GO  TO  42 

SURRAD 

416 

CC 

SURRAD 

417 

CC 

PREPARE  TO  GET  PATH  PARAMETERS  FOR  PATH  FROM  POINT  C  TO  SUN. 

SURRAD 

418 

, 

CC 

SURRAD 

419 

cc 

OBTAIN  EARTH -CENTERED  CARTESIAN  COORDINATES  OF  POINT  C. 

SURRAD 

420 

CALL  GE0I(YZ(C12A1T,C12LAT.C12L0N.RC(1),RC(2).RC(3)) 

SURRAD 

421 

CALL  VLIN(RC,1.0E+65.RC,0. 0,0.0) 

SURRAD 

422 

. 

cc 

SURRAD 

423 

NC  *  0 

SURRAD 

424 

CALL  STEPS(  RC.RS.MC.OS.XFRACS.INOX  ) 

SURRAD 

425 

4 

cc 

NOW  HAVE  NC.  OS.  XFRACS.  AND  INOX  FOR  PATH  FROM  S  TO  C. 

SURRAD 

426 

1  , 

FIRST  •  .TRUE. 

SURRAD 

427 

42  CONTINUE 

SURRAD 

428 

.  1 

cc 

SURRAD 

429 

TASC(LUP)  •  1.0 

SURRAD 

430 

LI  •  INOX(l)  $  L2  •  1H0X(2) 

SURRAD 

431 

■ 

HSP  •  XFRAC5(1)  *  HSHELL(Ll)  ♦  (l.-XFRACS(l))  •  HSHELL(L2) 

SURRAD 

43? 

CALL  AEROSOL  (  HSP.ZLAM.XKSCT.XKABS.GBAR  ) 

SURRAD 

433 

XKEXTP  •  XKSCT  ♦  XKABS 

SURRAD 

434 

DO  44  J*1,NC 

SURRAD 

435 

1F(  DS(J+1)  .LT.  0.0  )  GO  TO  44 

SURRAD 

436 

1F(  LUP  .EQ.  1  )  CALL  PATH(  FIRST. 1NDX( J) ,0S(J*1) .XFRACS( J)  ) 

SURRAD 

437 

LI  •  INOX(  J  )  S  12  •  1N0X(J+1) 

SURRAD 

438 

HSO  •  XFRACS(0+1)  *  HSHELL(L2)  ♦  (1 .-XFRACSI M ))  •  HSHELLfLl) 

SURRAD 

439 

CA.L  AEROSOL  (  HSO.ZLVF.XKSCT.XKASS.GBAR  ) 

SURRAD 

440 

XKEXTO  -  «SCT  ♦  XKABS 

SURRAD 

441 

XKEXT  •  ACCUM(  2,0.  .DS{  J+l).XKEXTP.XKEXT0,O..0S(0*n  )  /  OMJ+I) 

SURRAD 

442 

TASC(LUP)  -  TASC(LUP)  *  EXP(  -XXEXT*DS( J+1)  ) 

SURRAD 

443 

t 

'  \ 

t 

•; 

■ 

1 

XKEXTP  •  XKEXTO 

SURRAD 

444 

■  ■ 

• 

1 

292 
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44 

CONTINUE 

SURRAD 

445 

cc 

KOW  HAVE  PATH  PAfiAHETERS  U  AND  UP  FOP  SOlAR  RAT  TC  POINT  C. 

SURRAD 

445 

cc 

SINCE  these  path  parameters  ARE  INDEPENDENT  Of  WAVELENGTH, 

SWRAO 

44^ 

cc 

they  need  be  co^uteo  only  once. 

SURRAD 

448 

cc 

ALSO  HAVE  AERO.-.L  TRAnSNITTAHCE,  TASCtLUP).  FOR  SOUR  RAY  TO 

SORRAO 

449 

cc 

POINT  C.  WHICH  iS  wavelength  DEPENDENT. 

Sl“RAn 

450 

IF(  LUP  .GT.  J  )  GO  TO  SO 

SURRAD 

451 

cc 

REDEFINE  VARIABLES. 

SURRAD 

45? 

DO  46  NO.NSPECS 

SURRAD 

453 

X  46  I»1,NTENP 

SURRAD 

454 

U  CS'l.N)  ■  (1,N.21 

SURRAD 

45S 

UPCSCl.N)  *  U.’{I.N.2) 

SURRAD 

456 

46 

CONTINUE 

SURRAEi 

457 

WRITE(6.146) 

SURRAD 

4SB 

146 

FORHA’^  (1H0.44X.43H*  *  •  PA^H  PARAMETERS,  POINT  C  TO  SUN  •  •  *Hf>X 

SURRAD 

459 

$.*{FROM  SUSRCUTINE  SURRAD.  FORMATS  146,14B)*/?X .‘TEMPERATORE/SPECl 

SURRAD 

460 

JES.  ((UC5(l.H),H=l.l<SPECS).t-l.?)*) 

SURRAD 

461 

HR1TE(6,141,  {(1.  (U  CS(I.N).N=l.NSPECS!),I=1.2) 

SURRAD 

462 

WRITE(6,I48I 

SURRAD 

463 

U8 

FORMAT  (1K0.1X.*TEW>£RATURE/SPEC1ES.  (  (UPCS( I ,N).N*1  .NSPECS)  ,  I  =  I .2 

SURRAD 

464 

I)*) 

SURRAD 

465 

*1TE(6.141)  ((I,  (UPCS(!.N).H-1.NSPECS)).1»1.2I 

SURRAD 

466 

so 

CONTINUE 

SURRAD 

467 

CC 

SURRAD 

468 

cc 

THE  REMAINING  PORTION  OF  THIS  SUBRP'JTINE.  HOT  TO  BE  USED  WITH 

SURRAD 

46® 

cc 

subroutine  UPWELL,  is  avoided  by  calling  subroutine  SURRAD 

SURRAD 

470 

cc 

with  IFIRES*0  . 

S'JSRAD 

471 

CC 

SURRAD 

472 

IF(  IFIRES.EO.O  )  RFTTNtN 

SURRAD 

473 

cc 

SURRAD 

474 

CC. 

SURRAD 

475 

cc 

HOW  CONSIDER  THE  FIREBALLS  AS  SOURCES. 

SURRAD 

476 

cc 

NOTE  THAT  THE  NATURAL  CLOUD  MODULE  IS  NOT  INVOLVED  WITH  THE 

SURRAD 

477 

cc 

REMAINING  PORTION  OF  THIS  ROUTINE. 

SURRAD 

478 

cc 

S'JRRAD 

479 

cc 

ASSUKI  WT  LUP  (IN  ARGUMENT  LIST)  ALSO  SERVES  AS  A  WAVELENGTH  SURRAD 

480 

cc 

INDEX. 

SURRAD 

481 

DO  9S  L-1,1FIHES 

SURRAD 

482 

cc 

GET  THE  (UNATTENUATEO)  IRRADIANCE,  EFIRE,  OF  FIREBALL-L  AT 

SURRAD 

483 

cc 

SLANT  RANGE  SRCS«(L*1).  IN  WATTS/(CH**?  CM-i). 

SURRAD 

434 

cc 

435 

EFIRE  *  FBRINT(L)/(l.F*10*SRCSft(l*n*SRCSR(L*l)) 

SURRAD 

436 

cc 

SURRAD 

48'' 

cc 

SET  parameters  TT)  CALL  ESURF. 

SURRAD 

THi  •  src:en{l*i) 

SURRAD 

A  so 

P5I  *  DETAJKL+n 

SURRAD 

A50 

cc 

CALL  ESURF  WITH  ESURFI  SET  TO  .FALSE.  SINCE  THIS  IS  NOT  THE 

SURRAD 

49! 

cc 

FIRST  CALL  FROM  THIS  ROUTINE  AND  THUS  WE  00  NOT  NEED  A 

SURRAD 

49? 

cc 

RECOMPUTATION  OF  EPSD  AND  TKS. 

SURRAD 

40? 

ESURFI  •  .false. 

Sl.«RAn 

494 

cc 

CALL  ESURF  WITH  SPCULR  SET  TO  .FALSE.  UNDER  THE  TENTATIVE 

SURRAD 

495 

cc 

ASSUMPTION  THAT  WE  WILL  HOT  NEED  THE  SPECULAR  REFLECTION 

SLIPS  AD 

496 

cc 

POINTS  FOR  FIREBALLS  (WHICH  CAN  BE  COMPUTED  IN  GLITTR  IF 

SURRAD 

407 

cc 

MSM=2I.  if  there  IS  INTEREST  IN  KNOWING  SUCH  REFLECTION 

SURRAD 

495 

cc 

POINTS  WE  WILL  NFED  TO  ESTABLISH  APPROPRIATE  PRESERVING 

SIRRAD 

490 

cc 

VARIABLES. 

S'JRRAD 

SOT 

SPCULR  =  .FALSE. 

SLiRRAD 

601 

293 


C*i.L  ESl»P:THI,T>i5,Pl.'.H»<H,)*SK,IX!.y’CUl»,ZL»',!M>,lfIt!ES,ESL»!fl. 

SUPRA? 

S07 

J  SfR,EPSr,TrS> 

SUPRA? 

RAa(L+2'‘  =  srR*tFlRE*CElS!T«n 

SI*  RAD 

c: 

xr)w  HAVE  imATTEN'iA’-EO  REFLECTED  RAOIAKCE.  ftAO(L*?!,  »T 

SUPOAD 

50? 

cc 

POU'T  P  CUE  Tj  EIREBALL-L.  HEED  PATH  PARAA<ETER$. 

SURRA? 

SX 

Iff  l'JP  ,G’'.  1  )  GO  TO  60 

Sanirad 

SO' 

CALL  GEOXV’  '3ALT(l),EB'  AT?  l '' .EBLONf  L  '  .RF  { 1  t.RF !  ?!,c’F( 

SISRA? 

s-^- 

call  VL IN^RF , I .OE+OS,RF .O.O.O.O' 

SURRA? 

NC  >  0 

SINTRA? 

510 

call  STEPE!  RP.RF.KC.DS.XFRACS.INE*  ) 

si«RA.r 

511 

cc 

MOM  HAVE  HC.DS.XFRACS,  AND  JNDX. 

5I.«RAC' 

C  8  T 

J  »  •- 

first  *  .TRUE. 

SURRAO 

513 

60  continue 

SURRAD 

514 

TAFPfLI  *  1.0 

SL-WRAO 

515 

Ll  »  IMO’Ill  S  L?  *  iNCX(?) 

SiJRRAO 

516 

H5P  *  XFRACS:n  •  KSHE'L'Lll  ♦  (l.-XERACS'in  *  HSHELLIL?) 

SURRA? 

517 

call  aerosol  (  HSP.TLAw.XKSCT.XRASS.rSAR  ) 

SURRA? 

5*- 

XNEXTP  =  XNSCT  ♦  XNABi 

Sl*RA? 

00  70  J»1.NC 

SUPRA? 

5?0 

IF(  DS{ J+1).LT.0.U  )  GO  Tl  70 

5LIP°A? 

5?1 

IF(  LUP  .EQ.  1  1  CALL  FATH(  FIRST, IM0X( J) ,CSfJ*U.>FRAtS; 01  ' 

sl»rao 

5?t^ 

Ll  -  INO*{  J  )  J  L?  *  INDXOll 

SURRAO 

523 

HSO  *  XFRACStJil)  *  HSHELL(L?1  •>  (1  -XFRACS(J*ni  •  HSHELLfLll 

SURRAO 

5?4 

CALL  AEROSOL  (  HSO.ZLAH.TKSCT.XNAPS.GBAR  ) 

SURRA? 

525 

XXEXTO  »  XKSCT  +  XKASS 

SlIRRA? 

5?6 

XXEXT  «  ACCUPf  ?.O..DS(  J*n,«EXTP,XNEXTO.O..OSr>3^  )  /  OSi'JE*!' 

SURRAO 

52’ 

TAFP(L)  •  TAFP(L)  *  EXP(  -XKEXfOS' J*!  1  1 

slirrao 

5?S 

XXE7TP  •  XXEXTQ 

SUO.RAD 

5?^ 

70  continue 

SL®RA? 

530 

cc 

MOM  HAVE  path  parameters  U  AND  UP  FOP.  FIREBALL-L  RAT  TO 

SURRA? 

531 

cc 

POINT  P. 

SLIRRA? 

53? 

cc 

ALSO  HAVE  AEROSOL  TRANSMITTANCE.  TAFH(l',  FOP  FIREBALL-L 

SURRA? 

S3^ 

cc 

RAT  FROH.  RF  TO  RP. 

S'JRRA? 

sU 

1F(  LU=  .ST.  11  SO  TO  99 

S:J®RA? 

c  yi 

cc 

redefine  variables. 

S'JRRA? 

535 

00  80  N=l.NSPECi 

SURRA? 

c  3'> 

00  90  I-I.NTFMd 

SLPRA? 

53? 

U  PSd.N.L*-'.)  -  U  tI,N.?l 

SlPRAD 

535 

UPPE( I,N.L*1)  =  UPfl.N,?' 

S'l'RRAD 

54  7 

80  OOMTiNLtE 

SURRAD 

541 

9?  continue 

Slips  A? 

return 

A'.'RFA? 

54  5 

END 

S'RRAT 

544 

2Q 


SueROUTINE  TA»«GtO(M*l.GCl.&l.l,«?l.Y»i?l,ZV?l,HA2,SC?,Gl?) 

TANGED 

7 

ccc 

tanged 

3 

c 

SUSROliTIXE  -Wdco  (*  HTOinCD  H«c  BOUTIXC  CVLCD  *r:6E0), 

TANC-  j 

4 

c 

GIYEX  the  GEOGRA.?HiC  COO«D!IUTES  IW  POIHT  1  /W3  -n^E  T^ftEX’’- 

TANGCO 

5 

c 

PLWE  COOROIX»T[S  OF  POIXT  2  KITH  RESPECT  TO  POINT  1,  PROVIOES 

tangeo 

6 

c 

THE  SEOGRRPHIC  COORDINATES  OF  POINT  2. 

tanged 

7 

ccc 

tangeo 

8 

r 

INPUTS  FROM  CALI  STNTENtNT 

TANGEO 

R 

c 

HAl  »  altitude  of  POI*’  I,  CN 

TANGEO 

10 

c 

GCl  »  COLATITUOE  OF  POINT  1,  RADIANS 

TANGEO 

11 

c 

GLl  -  EAST  lONGlTOOE  OF  POINT  1.  RADIANS 

TANGEO 

12 

c 

XE?I  •  X  COORDINATE  OF  POINT  2  RELATIVE  TO  POINT  I,  CN 

TANGEO 

13 

c 

VN21  =  Y  COORDINATE  OF  POINT  2  RELATIVE  TO  POINT  1,  CN 

TANGEO 

14 

c 

2V21  -  i  COOfiOINA-'E  OF  POINT  2  RELATIVE  TO  POINT  1,  CN 

TAIGEO 

15 

c 

OUTPUTS 

TANGEO 

IF 

c 

HA2  •  altitude  of  point  2.  CN 

TANGEO 

V 

c 

6C2  -  COLATITUOE  OF  POINT  2,  RADIANS 

TANGEO 

18 

c 

GL?  •  EAST  longitude  OF  POINT  2,  RADIANS 

TANGED 

19 

ccc 

TANGEO 

20 

c 

RESTRICTIONS... 

TANGEO 

21 

c 

POINTS  1  AND/OR  2  NAY  NOT  LIE  ON  NORTH-SOUTH  POLAR  AXIS 

TANGEO 

22 

ccc 

TANGEO 

23 

DATA  PI. RE  /  3. 14  1592653590.6. 37I03£+0e  / 

tangeo 

24 

ccc 

TANGEO 

25 

GR?Z  •  REHtAl+ZVZI 

TANGEO 

26 

6»2  •  SC|fiT'XE21*»2  ♦  YN21»*2  ♦  ff’Z^Z) 

TANGEO 

27 

HA2  -  GRZ-RE 

TANGEO 

28 

COSGCl  *  COStGCl) 

TANGEO 

29 

SINGCl  *  SlN(GCn 

TANGEO 

3C 

OOSGC2  -  (GR2Z*C0SGCI  ♦  YN21- ilNGCn/GRZ 

TANGEO 

31 

SINGC2  -  SO»T(1.0-COSGC2«?) 

tangeo 

3? 

SINSLO  •  XEP1/(GR?*SINGC2V 

’■AN5E0 

3: 

COSGLO  ■=  fGfl2Z/GR2  -  C0SGC1*C0SGC2I/(S1NGC1*SINGC2) 

tangeo 

34 

GC2  «  ATAN2(  $INGC2.C0SGC2  ) 

TANG'D 

35 

6L0  *  ATAN2(  SINGLO. COSGLO  ) 

TANGEO 

36 

SL.  -  SLlTGLO 

tangeo 

3T 

RETURN 

TANGE"' 

3S 

END 

TANGEO 

39 

Z95 


SUBROU'^IMf  7V«(S(  NTE»<P,  U.  i;P.  «,  WO'.,  WDH,  T«.i,  ABC,  r-5l .  ?HA^5  ? 

I  fAST.  FIlPOS  )  TKAiHS  3 


c 

TRANS 

A 

CLJ 

TRANS 

5 

CLJ 

INPLT  PufiWTERS 

TRANS 

F 

CU 

ARGUNEUT  list 

TRANS 

CLJ 

BTEWP 

« 

OF  TEMPESAtuSES  IN  ATWOSWEPIC 

TRANS 

c 

Cl.J 

TFIABS><ITTA,NCE  NOOEL  (10.  SET  IN  CALL  FBOM  EITVEK 

TRANS 

9 

CLJ 

ATMRAO  OC  TUNSCO) 

TRANS 

Iv 

CLJ 

K 

a 

IhOEX  FOR  node  of  TRANSNITTANCE  CAlCUI  ATION. 

TRANS 

n 

CLJ 

COL'LO  BE  1.2... ..15  .  WITHIN  TWE  NATWAL 

TRWS 

12 

CLJ 

BACKGROUNO  RADIATION  HO%XE  (WHERE  TRANS  IS  CALLEI! 

TRANS 

13 

CLJ 

FROH  AT«*AD.  TRNSCO,  AND  URWELLl,  N  IS  ALWATS  1. 

TRANS 

lA 

CLJ 

(IN  CALLS  FRQH  PROGRAM*  EMISCAT.  N  IS  1.  2.  AND  IS 

OlANS 

15 

CLJ 

ALLOWED  values  UP  TO  15. t 

TRANS 

16 

CLJ 

IN  SUBROUTINE  TRANS.  A**!  LIMITS  USE  Of  THE  U  AHO 

TRANS 

IT 

CLJ 

UP  AftRA»S  TO  THEIR  FIRST  HALVES.  THIS  IS 

TRANS 

18 

CLJ 

CONSISTENT  WITH  THE  FACT  THAT  WITHIN  THE  NBP 

TRANS 

19 

CLJ 

HOOULE.  subroutine  TRANS  IS  ALWAYS  CAL!  ED  WITH  H 

TR  ViS 

?C 

CLJ 

SET  TO  1,  U  SET  TO  U(1.1.21,  AND  UP  SET  TO 

TRANS 

21 

CLJ 

OP(1.1.2).  THIS  IS  ALSO  TRUE  FOR  CALLS  WITH  N.l 

TRANS 

2? 

CLJ 

FROM  ENISCAT.  BUT  THERE,  WHfN  N.6E.2.  THE  CALLS 

TRANS 

23 

CLJ 

WE  with  u  aid  UP.  I.  E..  the  entire  arrays. 

TRANS 

2A 

CLJ 

un.A.i) 

AREAL  density  FOR  TFINPERATURE  I  AND 

TRANS 

25 

ClJ 

SPECIES  N.  C«  AT  STP  (I*1.NTEW  .  R'1.NS»EC) 

TRANS 

JF 

CLJ 

PATH  PARANFTER  UP  (PRODUCT  OF  U  WO  PRESSURE  FOR 

TRANS 

2’ 

CLJ 

temperature  I  ANO  SPECIES  N,  AIM-CM  AT  STP 

TRANS 

25 

ClJ 

(1*1,NTEMP  ,  N=1,NSP£C) 

TRANS 

29 

CLJ 

EUfF*) 

TRANS 

3D 

CLJ 

(F)((m;.  is  used  only  if  N.GE.3  .  currently,  »  IS 

TRANS 

32 

CLJ 

SET  TO  1  IN  calls  to  TRANS  FROM  TRNSCO  ANO  ATY^AD' 

TR.ANS 

3? 

CLJ 

WDL 

LOWEST  HAVENU>«ER  IN  DETECTOR  INTERVAL  BEING 

TRANS 

33 

CLJ 

USED,  1/CM 

TRANS 

3i 

Cl.J 

WOH 

HIGHEST  WAVENUieER  IN  OnECTOR  INTERVAL  BEING 

TRANS 

AC 

CLJ 

USED,  1/CH 

TRANS 

36 

CLJ 

FAST 

LOGICAL  VARIABLE  DETERMINING  CCPAP-.EXITY  OF 

TRANS 

CLJ 

TRWSMISSION  CALCULATION.  IN  CALLS  TO  SL'BROUTINE 

TRANS 

3? 

CLJ 

TRANS  (FROM  SUBROiJTINES  ATINIAD.  TRNSCO.  AnO  IIPWELL 

TRANS 

39 

CLJ 

WITHIN  THE  NBR  FAODULE  AND  FROM  PROGRAM  EMISCAT 

IRANS 

AO 

CLJ 

OUTSIDE  THE  NBR  NODULE),  FAST  IS  SET  TO  TRNSOPY. 

TRANS 

A I 

CLJ 

•.TRUE.,  transmittance  IS  BASED  ON  SINGLE-LEVEL 

TRANS 

A? 

CLJ 

GROUPS  And  statistical  BANOS.  EAND-*rDEL 

TRANS 

A3 

CLJ 

P«A“ETERS  CCmpiiTEd  by  SJjBRO'J’INE  TRWSB 

TRANS 

A1 

CLJ 

FOR  7RN$0PT-:.TRUC.  ARE  MATCHED  TO  USER'S 

TRASS 

A5 

CLJ 

spectral  interval. 

TRANS 

46 

CLJ 

-.FALSE.,  transmittance  IS  BASED  ON  M'J;.''IPLE-LEVEL 

TRANS 

A7 

CLJ 

GROUPS  AND  RANODM  El  SASSER  BANDS.  BANO- 

TRASS 

AB 

CLJ 

Nooa  parameters  cokp-jteo  b’  subro'jtine 

TRANS 

A9 

CLJ 

TRANSB  for  TRNSOPt-.fAlSE.  are  fop  a 

TRANS 

50 

CLJ 

HIGHER  RESOLUTION  THAN  THE  USER'S  SPECTRA 

TRANS 

FI 

CLJ 

interval,  a  fact  taken  into  account  in 

TRANS 

53 

CLJ 

computing  the  transmittance. 

TRANS 

C  A 

CLJ 

filpcs 

• 

FILE  POSITION.  SET  TO  l.E-04  IN  CALLS  FRD“ 

TRANS 

54 

CCJ 

SUBROUTINES  TRNSCO  WD  ATMRAD. 

TRASS 

cc 

CLJ 

XT  CO»*ON 

TRANS 

55 

CLJ 

TTfi; 

* 

TEMPCRAiTIRE  WRAV  IN  ATMOS»HERiC  TRANS-'SSION 

TRANS 

SA 

CLJ 

MODEL,  SET  AS  DATA  IM  THE  DRIVER  PROGRA". 

TRANS 

5« 

2% 


CLJ 

XYZCOM  COfWON 

TRANS 

59 

CU 

LTMTE  *  BINARY  FILE  CONTAINING  THE  BAHO.«3DEL  PARAMETERS 

TRANS 

60 

CLO 

WHICH  WERE  DERIVED  IN  SUBROUTINE  TRANSB  FROM  THE 

TRANS 

61 

CIO 

BASIC  5-(1/CM)-RES0LUTI0I  DATA. 

TRANS 

62 

CLO 

LTMTE  IS  IDENTICAL  TO  TAROT,  THE  FILE  WRITTEN 

TRANS 

63 

CLO 

BY  TRAHS8.  (SEE  TRAMSB.) 

TRANS 

64 

CLO 

TRANS 

65 

CLO 

FOP.  EACH  READ  OF  THE  LTMTE  FILE.  ."HE  202  WORDS 

TRANS 

66 

CLO 

ARE  STORED  AS... 

TRANS 

67 

:lo 

WTL,  -  LOWER  AND  HIGHER  WAVENUMBERS  OF  INTERVAL,  CM-1 

TRANS 

68 

CLO 

WTH 

TRANS 

69 

CLO 

FOR  1-1,10  .  IS-1,10 

TRANS 

70 

CLO 

SOO(1,1S)  -  MEAN  ABSORPTION  COEFFICIENT  FOR  SPECIES-IS  AT 

TRANS 

71 

CLO 

TEMPERATURE-IMOER-I  FOR  THE  WAVENUMBER  INTERVAL. 

TRANS 

72 

:lo 

1/CM  AT  5TP 

TRANS 

73 

CLO 

DEKI.IS)  •  INVEP.  OF  MEAN  LINE-SPACING  PARAMETER.  OR  THE 

TRANS 

74 

CLO 

EFFECTIVE  LINE  DENSITY.  L!NES/(1/CM) 

TRANS 

75 

CLO 

TRANS 

76 

CLO 

NSPEC  ■  IPWLS.  THE  NUMBER  OF  SPECIES.  SET  IN  DRIVER. 

TRANS 

77 

CLO 

OUTPUT  PARAMETERS 

TRANS 

78 

CLO 

ARGUMENT  LIST 

TRAMS 

79 

CLO 

TAU(N.MI  -  TRANSMITTANCE  FOR  SPECIES  N 

TRANS 

80 

CLO 

(N-1, NSPEC  .  M-1.15)  (BUT  H-I  FOR  HBR  MODULE) 

TRANS 

81 

CLO 

ABC(N,M)  •  OPTICAL  DEPTH  FOR  SPECIES  N,  DIMENSIONLESS 

TRANS 

82 

CLO 

(N-1, NSPEC  ,  M-l.lS)  (BUT  M-1  FOR  NBR  MODULE) 

TRANS 

83 

CLO 

nBL(M)  •  MOLECULAR  TRANSMIHANCE  FOR  MODE  M 

TRANS 

84 

DIMENSION  U(NTEMr.lO,Z),  UP(NTEMP.10.2).  FK(M).  NSfiAY(lO), 

TRANS 

85 

1  GHAT(13.5).  F(13.10),  G{13.10).  THETA(IO).  CF(13.10,10), 

TRANS 

86 

2  CG(13.10,10).  TAU(IO.M),  »IW(1C),  SOD(IO.IO).  0EI(10,10), 

TRANS 

87 

3  ALS(IO),  ABC(IO.M).  TTBL{M) 

TRANS 

88 

c 

TRANS 

89 

COMMON  /  «V  /  TT(IO) 

TRANS 

90 

COMMON  /  XVZCOM  /  ITMTE.  LTMTE.  XXX(145«),  NSPEC,  FACT 

TRANS 

01 

C 

COMMON  /  CONCOP  /  PI.  RBODY . 

TRANS 

92 

c 

TRANS 

93 

LOGICAL  TABLIH,  FAST 

TRANS 

94 

C 

TRANS 

95 

DATA  SOO  /  100  “  0.  /,  DEI  /  100  *  0.  / 

TRANS 

96 

DATA  NSRAY  /  A,  3,  12.  10.  10,  11,  4.  0,  5.  2  / 

TRANS 

97 

DATA  GHAT  /  1  ,  2..  4.,  6.,  10.,  14..  19.,  25.,  33.,  42..  53., 

TRANS 

98 

1  66.,  80..  1..  1.,  3.,  3.,  6..  7.,  10.,  12..  14..  17.,  19., 

TRANS 

99 

2  0..  0..  1..  2.,  3.,  6.,  7..  10..  15.,  17.,  ?!..  28.,  30.,  0.. 

TRANS 

100 

3  0.,  1.,  2..  4..  6..  10.,  14.,  20..  27..  36..  46.,  58.,  72.. 

TRANS 

101 

4  0..  1..  1..  3..  3.,  3..  6.,  7*0./ 

TRANS 

102 

DATA  THETA  /  2740.,  3420.,  850..  108C.,  1015..  960.,  T123.,  0., 

TRANS 

103 

1  2300.,  5350.  / 

TRANS 

104 

DATA  ALS  /  .04,  .04.  .08,  .10,  .11,  .07,  .06,  .06.  .04,  .06  / 

TRANS 

105 

DATA  A1  /  0.3480242  /,  A?  /  -.0958798  /.  A3  /  0.7478556  / 

TRANS 

106 

DATA  P  /  0.47047  / 

TRANS 

107 

DATA  XMW  /  30..  30.,  44.,  46.,  48.,  44..  2B.,  16.,  18.,  17.  / 

DATA  TABUN  /  .FALSE.  /,  WLP  /  0.  /.  WHP  /  0.  / 

TRANS 

108 

TRANS 

109 

DATA  PI  /  3  14159265  / 

TRANS 

no 

c 

TRANS 

in 

CLO 

ENTRY  TRANSl  IS  PROVIDED  BY  SAI  (12/29/78)  TO  AVOID  CONFLICT 

TRANS 

117 

CLO 

IN  SUBROUTINE  UPWELL  BETWEEN  THE  ARRAY  TRANS  IN  C0M4ON  CLDWT 

TRANS 

113 

CLO 

AND  THE  CALL  TO  SUBROUTINE  TRANS. 

TRANS 

114 

ENTRY  TRANSl 

TRANS 

115 

?97 


MIO  •  M  *  10 

C 

DO  31  I  -  1.  HIO 
ABC(I,1)  *  0. 

TAU(I.l)  -  0. 

31  CONTINUE 
C 

IF  (  TABLIN  .Ofi.  FAST  )  GO  TO  27 

C  INITAILIZATIONS 

C 

C  LOOP  OVER  SPECIES 

C 

DO  1  IS  -  1.  NSPEC 
NS  •  NSRAY(IS)  ♦  1 
C 

C  LOOP  OVER  ENERGY  BINS 

C 

DO  ?  J  -  1,  NS 
FCJ.IS)  *  1. 

GO  TO  I  3.  3.  4,  4,  4.  4,  3.  4,  4,  3  ).  IS 
C 

3  F(J.IS)  •  J 

4  GO  TO  (  5.  6.  7,  8.  9.  10,  6,  11.  12.  5  ).  IS 
C 

5  G(J,IS)  •  2. 

GO  TO  2 

C 

6  G(J.IS)  -  1. 

GO  TO  2 

C 

7  G(J,IS)  •  GHAT(J,1) 

GO  TO  2 

C 

8  G(j,is:  *  6HAT(J,2)  *  100. 

GO  TO  2 

C 

9  G(J,IS)  ■  GHAT(0,3)  •  100. 

GO  TO  2 

C 

10  GfJ.lS)  •  GHAT(J.4) 

GO  TO  2 

C 

11  G(J,IS)  -  100. 

GO  TO  2 

C 

12  G(J.IS)  -  GHAT[J,5)  *  100. 

2  CONTINUE 

C 

1  CONTINUE 
C 

C  LOOP  OVER  TEMPERATURES 

C 

DO  13  I  ■  1,  HTEMP 

r 

C  LOuP  OVER  SPECIES 


TRANS 

116 

TRANS 

117 

TRANS 

118 

TRANS 

119 

TRANS 

120 

TRANS 

121 

TRANS 

122 

TRANS 

123 

TRANS 

124 

TRANS 

125 

TRANS 

126 

TRANS 

127 

TRANS 

128 

TRANS 

129 

TRANS 

130 

TRANS 

131 

TRANS 

132 

TRANS 

133 

TRANS 

134 

TRANS 

135 

TRANS 

136 

TRANS 

137 

TRANS 

138 

TRANS 

139 

TRANS 

140 

TRANS 

141 

TRANS 

142 

TRANS 

143 

TRANS 

144 

TRANS 

145 

TRANS 

146 

TRANS 

147 

TRANS 

148 

TRANS 

149 

TRANS 

150 

TRANS 

151 

TRANS 

152 

TRANS 

153 

TRANS 

154 

TRANS 

155 

TRANS 

156 

TRANS 

157 

TRANS 

153 

TRANS 

159 

TRANS 

160 

TRANS 

161 

TRANS 

162 

TRANS 

163 

TRANS 

164 

TRANS 

165 

TRANS 

166 

TRANS 

167 

TRANS 

168 

TRANS 

169 

TRANS 

170 

TRANS 

171 

TRANS 

172 

C  TPANS 

DO  14  IS  -  1,  NSPEC  TPANS 

C  TKANS 

NS  •  NSRAY(IS)  +  1  TAANS 

FSUM  -  0.  TRANS 

C  TRANS 

C  LOOP  OVER  ENERGY  BINS  TRANS 

C  TRANS 

DO  15  J  -  I,  NS  TRANS 

FJ  •  J  -  1  TRANS 

FSUM  -  FSUM  +  F(J.IS)  •  G(J.IS)  *  EXP(  -THETA(IS)  *  FJ  /  nd)  )  TRANS 

15  CONTINUE  TRANS 

C  TRANS 

FI  SUM  ^  0.  TRANS 

C  TRANS 

C  LOOP  OVER  ENERGY  BINS  TRANS 

C  TRANS 

no  16  J  =  1.  NS  TRANS 

CF(J,IS,I)  =  1.  TRANS 

FJ  •  J  -  1  TRANS 

CF(J.1S,I)  •  F(J,IS)  •  6(J.1S)  *  EXP(  -TUETAilS)  *  FJ  /  TT(I)  )  TRANS 

S  /  FSUM  TRANS 

FISUM  -  FISUM  +  SORT!  CFfJ.IS.I)  *  6(J,IS)  )  TRANS 

16  CONTINUE  TRANS 

C  TRANS 

C  LOOP  OVER  ENERGY  BINS  TRANS 

C  TRANS 

00  17  J  •  1,  NS  TRANS 

CG(J,1S.1)  -  1.  TRANS 

FJ  •  J  -  1  TRANS 

CG(J.IS.I)  '  G(J,IS1  /  FISUM  •*?  TRANS 

17  CONTINUE  TRANS 

C  TRANS 

14  CONTINUE  TRANS 

C  TRANS 

13  CONTINUE  TRANS 

C  TRANS 

TABLIN  •  .TRUE.  TRANS 

C  TRANS 

?7  IF  (  FAST  .AND.  (  WDL  .NE.  AP  .OR.  WDH  .NE.  WHP  )  )  GO  TO  ?3  TRANS 

IF  (  FILPOS  .LE.  WDL  )  GO  TO  ?4  TRANS 

C  TRANS 

REWIND  LTMTE  TRANS 

WTL  -  0.  TRANS 

WTH  •  0.  TRANS 

GO  TO  74  TRANS 

C  TRANS 

C  READ  spectral  DATA  FILE  TRANS 

C  TRANS 

73  READ  (LTMTE)  WTl.  WTH,  (  (  SOOtl.IST,  1  -  1.  NTEMP  ).  TRANS 

i  (  OEId.IS),  I  •  1,  NTEMP  ).  IS  •  1,  NSPEC  )  TRANS 

FILPOS  -  WTL  TRANS 

MHP  -  NOH  TRANS 

WLP  •  WDL  TRANS 

C  TRANS 

74  OLAP  •  FRAC(  WDL,  WDfi,  WTL.  WTH  )  TRANS 

IF  (  WTL  .GE.  WDH  )  RETURN  TRANS 


173 

174 
176 

176 

177 

178 
17R 
180 
181 
18? 

183 

184 

185 

186 

187 

188 

189 

190 

191 
19? 

193 

194 
196 

196 

197 
193 
199 

700 

701 
70? 

703 

704 

705 

706 

707 

708 

709 

710 

711 
717 

713 

714 

715 

716 

717 

718 

?]Q 

770 

771 
??? 

773 

774 

775 

776 

777 
270 
779 


IF  (  OLAP  .LE.  0.  )  GO  TO  23 

TRANS 

230 

c 

TRANS 

231 

W  -  (  tfTL  +  MTH  )  /  2. 

TRANS 

232 

c 

TRANS 

233 

c 

LOOP  OVER  PATH  SEGMENTS 

TRANS 

234 

c 

TRANS 

235 

CLO 

IN  NBR  MODULE  USAGE,  M  IS  SET  TO  1  IN  CALLS  TO  SUBROUTINE 

TRANS 

236 

CLJ 

TRANS,  BUT  IN  CALLS  TO  TRANS  FROM  PROGRAM  WISCAT,  K  IS  SET  TO 

TRANS 

237 

CLJ 

1.  2,  AND  HAT  BE  UP  TO  IS. 

TRANS 

238 

DO  22  K  «  1,  H 

TRANS 

239 

c 

TRANS 

240 

c 

LOOP  OVER  SPECIES 

TRANS 

241 

c 

TRANS 

242 

DO  IS  IS  -  1,  NSPEC 

TRANS 

243 

ADS  -  3.58E-7  *  U  •  SWT(  273.  /  XMW(IS)  ) 

TRANS 

244 

NS  •  NSRAY(IS)  +  1 

TRANS 

245 

IF  (  FAST  )  NS  -  1 

TRANS 

246 

XS  -  0. 

TRANS 

247 

c 

TRANS 

248 

c 

LOOP  OVER  ENERGY  BINS 

TRANS 

249 

c 

TRANS 

250 

CLJ 

MOTE  THAT  NS-1  FOR  FAST  ■  TRNSOPT  -  .TRUE.  . 

TRANS 

251 

DO  19  J  -  1.  NS 

TRANS 

252 

XML  -  0. 

TRANS 

253 

SUMC  -  0. 

TRANS 

254 

SUHD  -  0. 

TRANS 

255 

c 

TRANS 

256 

c 

LOOP  OVER  TEMPERATURES 

TRANS 

257 

c 

TRANS 

258 

c 

CALCULATE  OPTICAL  DEPTH  IN  WEAK-LINE  APPROXIMATION 

TRANS 

259 

c 

TRANS 

260 

OO  20  I  •  1,  NTEMP 

TRANS 

261 

IF  (  M  .GE.  3  )  GO  TO  29 

TRANS 

262 

CLJ 

SINCE  M.l  IN  NBH-MOOULE  USAGE,  K  HAS  THE  SINGLE  VALUE  OF  I. 

TRANS 

263 

CLJ 

THUS,  WE  ARE  SETTING  U(I.IS.l)  AND  UP(I,IS,1)  INTO  US  AND 

TRANS 

264 

CLJ 

UPS,  RESPECTIVELY. 

•iRANS 

265 

US  «  U(1,IS,K) 

TRANS 

266 

UPS  «  UP(I,IS,K) 

TRANS 

26/ 

GO  TO  30 

TRANS 

268 

c 

TRANS 

269 

CLJ 

THE  FOLLOWING  EXPRESSION  IS  USED  ONLY  IF  M.GE.3,  AS  MAY  OBTAIN 

TRANS 

270 

CLJ 

FOR  CALLS  TO  TRANS  FROM  PROGRAM  EMISCAT.  NBR-MODULE  USAGE  HAS  TRANS 

271 

CLJ 

M«I,  SO  U(1,IS,2)  AND  UP(I,I5.2)  ARE  NOT  USED  IN  SUBROUTINE 

TRANS 

272 

CLJ 

TRANS,  NOR  IS  THE  ARRAY  FK,  FOR  THE  NBR  MODULE. 

TRANS 

273 

29 

US  ■  (  1.  -  FK(K)  )  ♦  U(I,IS,1)  ♦  FK(K)  *  U{I,1S,2) 

TRANS 

274 

UPS  *  (  1.  -  FK{K)  )  ♦  UP(I.IS.l)  +  FK(K)  •  UP(I,IS,2) 

TRANS 

275 

C 

TRANS 

276 

30 

IF  (  US  .EO.  0.  )  GO  TO  20 

TRANS 

277 

IF  (  FAST  )  GO  TO  36 

TRANS 

278 

SODI  -  CF(J,IS,I)  •  SOOd.IS) 

TRANS 

279 

DEII  •  C3(J,IS,I)  •  DEI(I,IS) 

TRANS 

280 

GO  TO  32 

TRANS 

281 

C 

TRANS 

282 

36 

SODI  ■  SOOd.IS) 

TRANS  . 

283 

DEII  •  DEI(I.IS) 

TRANS 

284 

C 

TRANS 

285 

32 

XWL  ■  XWL  ♦  SODI  •  US 

TRANS 

286 

300 


SUHC  •  SUMC  +  St3RT(  273.  /  TT':',  )  *  DEII  *  SOOI  *  UPS 

TRANS 

287 

SUMD  -  SUKO  +  SQRT(  n(I)  /  273.  )  *  OEH  *  SODI  *  US 

TRANS 

288 

20  CONTINUE 

TRANS 

289 

c 

TRANS 

290 

IF  (  XUL  .LE.  l.E-100  )  GO  TO  34 

TRANS 

291 

r 

TRANS 

292 

c 

CALCULATE  OPTICAL  DEPTH  IN  AN  APPPOXIMATE 

TRANS 

293 

c 

RANDOM  aSASSER  MODEL 

TRANS 

294 

c 

TRANS 

295 

ACSO  •  ALS(iS)  /  XHL  *  SUMC 

TRANS 

296 

AOSO  ■  ADS  /  XWL  *  SUMD 

TRANS 

297 

IF  (  FAST  )  GO  TO  25 

TRANS 

298 

U2  •  PI  *  XWL  **2  /  (  4.  *  6(J,IS)  «2  *  (  1.  ■»  XWL  / 

TRANS 

299 

S  (  4.  *  ACSJ  )  )  1 

TRANS 

300 

Tl  .  I,  /  (  1.  4  P  *  SQRT{  U2  )  ) 

TRANS 

301 

XRE  -  -G(J,1S)  •  (  ALOG{  A1  *  TL  ♦  A2  *  TL  **2  4  A3  *  TL  **3  )  - 

TRANS 

302 

i  U2  ) 

TRANS 

303 

c 

TRANS 

304 

c 

CALCULATE  OPTICAL  DEPTH  FOR  LORENTZ  LINES 

TRANS 

305 

c 

TRANS 

306 

XL  -  AHINK  XRE,  XWL  ) 

TRANS 

307 

GO  TO  33 

TRANS 

308 

c 

TRANS 

309 

25  XL  -  XWL  /  SORT(  1.  4  XWL  /(  4.  *  ACSO  )  ) 

TRANS 

310 

c 

TRANS 

311 

c 

CALCULATE  OPTICAL  DEPTH  FOR  DOPLEH  LINES 

TRANS 

312 

c 

TRANS 

313 

33  XO  -  1.7  4  AOSO  *  SORT(  ALOG(  1 .  ♦  (  XWL  /  {  1 .7  *  ADSJ  )  )  **! 

))  TRANS 

314 

A  •  (  1.  -  {  XL  /  XWL  )  4*2  )  —2 

TRANS 

315 

B  «  (  1.  -  (  XO  /  XWL  )  4*2  )  4*2 

TRANS 

316 

IF  (  A  4  B  ,LE.  I.E-IS  )  GO  TO  21 

TRANS 

317 

T  -  SQRT(  A4B/(B4A-A4B)) 

TRANS 

318 

c 

TRANS 

319 

c 

CALCULATE  OPTICAL  DEPTH  OF  SPECIES 

TRANS 

320 

c 

TRANS 

321 

XS  »  XS  4  XWL  4  S0RT(  1.  -  V  ) 

TRANS 

322 

GO  TO  19 

TRANS 

323 

c 

TRANS 

324 

21  XS  -  XS  4  XWL 

TRANS 

325 

CLJ 

STATEMENT  19  IS  FOR  THE  ENERGY-BIN  LOOP  ON  INDEX  J.  FOR 

TRANS 

326 

CLJ 

FAST  «  .TRUE.,  THIS  LOOP  IS  DONE  ONLY  ONCE. 

TRANS 

327 

19  CONTINUE 

TRANS 

328 

c 

TRANS 

329 

c 

TRANS 

330 

c 

CALCULATE  TRANSMITTANCE  OF  SPECIES 

TRANS 

331 

c 

TRANS 

332 

ABC(IS.K)  »  AEC(IS,K)  4  XS  4  OLAP 

TRANS 

333 

TAU(IS,X)  •  TAU(IS,X]  4  EXP(  -XS  )  *  OLAP 

TRANS 

334 

GO  TO  18 

TRANS 

335 

34  TAU{I5,K)  -  TAU(IS,Xl  4  OLAP 

TRANS 

336 

CLO 

1  STATEMENT  18  IS  FOB  THE  SPECIES  LOOP  ON  INDEX  IS. 

TRANS 

337 

18  CONTINUE 

TRANS 

338 

c 

TRANS 

339 

CLO 

1  statement  22  IS  for  the  so-called  path- SEGMENT  LOOP  ON  INDEX 

TRANS 

340 

cl: 

1  K.  FOR  NBR-MOOULE  USAGE,  K  EQUALS  ONLY  1. 

TRANS 

341 

22  CONTINUE 

TRANS 

342 

c 

TRANS 

343 

301 


IF  (  WTH  .LT.  .9999999  •  WOH  )  SO  TO  23 

TRANS 

344 

c 

TRANS 

345 

DO  35  K  '  1,  M 

TRANS 

346 

nBL(K)  *  1. 

TRANS 

347 

DO  35  IS  •  1,  NSPK 

TRANS 

348 

CLJ 

THE  FOLLOWING  TMO-LINE  CHANGE,  RECEIVED  IN  TWO  INSTALLMENTS 

TRANS 

349 

CLJ 

FROM  L.  EWING  ON  3/20/79  AND  A.  KLEIN  OH  9/10/79,  AFFECTS  THE 

TRANS 

350 

CLJ 

EMISSION  CALCULATION  IN  SUBROUTINE  ATHRAD. 

TRANS 

351 

IF(  (  TAUdS.K)  .LT.  0.9999  )  .AND.  (  TAU(IS,K)  .GT.  0.0001  )  ) 

TRANS 

352 

ABC(IS.K)  •  -ALOGf  TAU(IS.K)  ) 

TRANS 

353 

35 

TrBL(K)  •  TTBKK)  *  TAU(IS.K) 

TRANS 

354 

C 

TRANS 

355 

RETIRN 

TRANS 

356 

END 

TRANS 

357 

302 


SUBROUTINE  TRAN5B  (  LBAND  ) 

TRANSB 

2 

c 

TRANSB 

3 

c 

‘transb*  eliminates  unnecessart  spectral  data  from 

TRANSB 

4 

c 

TRE  external  FILE.  THE  TYPE  OF  SPECTRAL  COVERING  GENERATED 

TRANSB 

5 

c 

DEPENDS  ON  trnsOPT,  IF  TRNSOPT  IS  .TRUE.  ,  THE  FASTEST 

TRANSB 

6 

c 

BUT  least  accurate  CALCULATIONS  WILL  BE  DONE. 

TRANSB 

7 

c 

TRANSB 

Q 

CLJ 

TRANSB 

9 

CLJ 

INPUT  PARAMETERS 

TRANSB 

10 

CLJ 

ARGUMENT  LIST 

TRANSB 

11 

CLJ 

LBAND  -  LIST  HEADER  VARIABLE  (LHV)  FOR  WAVELENGTH  BANDS 

TRANSB 

1? 

CLJ 

DATASET-BN  (no.  1141.  STRICTLY,  LBAND  IS  THE 

TRANSB 

13 

CLJ 

POINTER  (I.E..  IT  CONTAINS  THE  (0-ARRAY)  ADDRESS 

TRANSB 

14 

CLJ 

FOR  THE  LIST  HEADER  OF  THE  WAVELENGTH  BANDS 

TRANSC 

15 

CLJ 

DATASET-BN. 

TRANSB 

16 

CLJ 

IN  SRC  USAGE,  LBAND  IS  SIORED  AS  WORD-1?  OF 

TRANSB 

17 

CLJ 

DATA5ET-ST  (NO.  111). 

TRANSB 

IS 

CLJ 

IN  THE  SAI  STAND-ALONE  VERSION  OF  TME  NBR  MODULE, 

TRANSB 

19 

CLJ 

DATASET- ST  INO.  Ill)  IS  NOT  USED,  BUT  LBAND  IS 

TRANSB 

?0 

CLJ 

STILL  GENERATED  IN  PROGRAM  DRVUPW  AND  USED  AS  THE 

TRANSB 

?i 

CLJ 

LHV  EOR  DATASET-BN. 

TRANSB 

22 

CLJ 

XY2C0M  C»«ON 

TRANSB 

23 

CLJ 

ITMTE  =  AUXILIARY  INPUT  DATA  PILE  NUMBER,  (=?  IN  DRVUPW) 

TRANSB 

24 

CLJ 

LTMTE  =  AUXILIARY  OUTPUT  DATA  FILE  NUMBER,  (=3  IN  DRVUPW) 

TRANSB 

25 

CLJ 

OPTION  COWION 

TRANSB 

26 

CLJ 

TRNSOPT  -  logical  VARIABLE  AFFECTING  (A)  PROCEDURE  FOR 

TRANSB 

27 

CLJ 

CONVERTING  THE  BASIC  5-(l/CM)-RES0LUTI0N  BAND- 

TRANSB 

28 

CLJ 

MODEL  PARAMETERS  TO  THOSE  FOR  THE  USER-SPECIFIED 

TRANSB 

29 

CLJ 

RESOLUTION  ANO  (B)  POSSIBLE  REDUNDANCY  OF  OUTPUT 

TRANSB 

30 

CLJ 

DATA  IF  USER-SELECTED  BANOS  OVERLAP  WITH  COMMON 

TRANSB 

31 

CLJ 

SPECTRAL  INTERVALS. 

TRANSB 

3? 

CLJ 

=.TRU£.,  TRANSB  PROVIDES... 

TRANSB 

33 

CLJ 

(A)  IN-BAND  (MORE  PRECISELY,  IN- INTERVAL '•  ) 

TRANSB 

34 

CLJ 

AVERAGED  BAND-MODEL  PARAMETERS.  (THERE  IS  NO 

TRANSB 

35 

CLJ 

LIMIT  ON  THE  ALLOWED  COARSENESS  OF  THE 

TRANSB 

36 

CLJ 

RESOLUTION.  IF  RESOLUTION  FINER  THAN  5-(l/CM)  IS  TRANSB 

37 

CLJ 

REQUESTED,  THE  CODE  WILL  COMPUTE  ANSWERS,  BUT 

TRANSB 

38 

CLJ 

THEY  MAY  HAVE  LITTLE  OR  NO  PHYSICAL  REALITY.) 

TRANSB 

39 

CLJ 

(B)  BAND-MOOa  PARAMETERS  FOR  EACH  INTERVAL 

TRANSB 

40 

CLJ 

WITHIN  A  BAND  (EVEN  THOUGH  BANDS  MAY  OVERLAP), 

TRANSB 

4! 

CLJ 

AND  THE  bands  ARE  ORDERED  AS  IN  THE  WAVELENGTH 

TRANSB 

4? 

CLJ 

BANDS  DATASET-BN  (no.  114). 

TRANSB 

43 

CLJ 

".false..  TRANSB  PROVIDES... 

TR  AN  SB 

44 

ClJ 

(A)  band-model  parameters  at  a  (BELOW-DEFINFD) 

TRANSB 

46 

CLJ 

RESOLUTION  THAT  MAY  BE  FINER  THAN  THE  REQUESTED 

TRANSB 

46 

CLJ 

spectral  INTERVALS.  IN  T^tS  CASE  THE  TRANS8- 

TRANSB 

47 

CLJ 

generateo  resolution  (OR  subinterval)  IS  o.s  or 

TRANSB 

48 

CLJ 

THE  NARROWEST  USER-SPECIFIED  WAVENUMBER  INTERVAL, 

,  TRANSB 

49 

CLJ 

BUT  WITHIN  THE  RANGE  OF  5  TC  50  (l^CM).  THE 

TRANSB 

50 

CLJ 

LOWER  EDGE  OF  THE  FIRST  OUTPUT  INTERVAL  LIES  AT 

TRANSB 

51 

CLJ 

THE  lower  edge  of  THE  LOWEST  WAVENUMBER  SPECTRA! 

TRANSB 

5? 

CLJ 

INTERVAL. 

TRANSB 

53 

ClJ 

(8)  NON-PEDUNDANT  INFORMATION  FOR  INTERVALS  IN 

TRANSB 

54 

CLJ 

OVERLAPPING  BANDS.  fIF  BANDS  DON’T  OVERLAP, 

TRANSB 

55 

CLJ 

THERE  IS  NOTHIKG  TO  ELIMINATE,  OF  COURSE.) 

TR  AN  '3 

56 

CLJ 

NOTE.  FOR  ADDITIONAL  INFORMATION  REGARDING  USE 

TRANSB 

5T 

CLJ 

OF  THESE  BAND-MOna  PWAMfTERS,  SEE  COMMENTS 

TRANSB 

68 

30 


CLJ 

UNOER  THE  LOGICAL  VARIABLE  FAST  IN  SUBROUTINE 

TRANSB 

59 

CLJ 

TRANS. 

TRAN  SB 

60 

CLJ 

"DATASrr-BN“ 

TRANSB 

61 

CLJ 

«  NOTE  * 

TUE  SPELLING  (BN)  IS  AN  UNFORTUNATE  ARTIFACT  FROH 

TRANSB 

6? 

CLJ 

♦ 

TUE  ORIGINAL  DEVELOPMENT  OF  THE  ROUTINE  BY  L. 

TRANSB 

63 

CLJ 

* 

EVING  OF  GET.  HE  ARE  REALLY  DEALING  WITH  HORDS-3. 

TRANSB 

64 

CLJ 

* 

-4.  AND  -6  OF  THE  GRC  DICTIONARY  DATASET-BI  (NO. 

TRANSB 

65 

CLJ 

* 

115)  AND  NOT  0ATASET-8N  (NO.  114). 

TRANSB 

66 

CLJ 

WLO  BN.  • 

LOWEST  AND  HIGHEST  WAVENUMBERS  OF  SPECTRAL 

TRANSB 

67 

CLJ 

HHI  BN 

INTERVAL  OVER  WHICH  BAND-MODEL  PARAMETERS  ARE  TO 

TRANSB 

68 

CLJ 

BE  AVERAGED,  CM-l 

TRWSB 

69 

CLJ 

TFLAG  BN  ‘ 

FLAG  TO  DENOTE  WHETHER  THE  WAVELENGTH  OR 

TRANSB 

70 

CLJ 

WAVENUMBER  (CORRESPONDING  TO  THE  ARGUMENT  OF 

TRANSB 

71 

CLJ 

ttlag  bn)  is  associated  with  the  first. 

TRANSB 

7? 

CLJ 

INTERMEDIATE,  OR  LAST  SPECTRAL  DIVISION  IN  A  BAND 

TRANSB 

73 

CLJ 

OF  (ASCENDING)  WAVELENGTHS  OR  (ASCENDING) 

TRNNSB 

74 

CLJ 

WAVENUMBERS. 

TRANSB 

75 

CLJ 

M 

1.,  FIRST  SPECTRAL  DIVISION  (LOWEST  WAVELENGTH)  IN 

TRANSB 

76 

CLJ 

A  WAVELENGTH  BAND  OR  LAST  SPECTRAL  DIVISION 

TRANSB 

77 

CLJ 

(HIGHEST  HAVENui«ER)  IN  A  WAVENUMBER  BAND 

TRANSB 

78 

CLJ 

X 

0.,  INTERMEDIATE  SPECTRAL  DIVISION 

TRANSB 

79 

CLJ 

* 

2.,  LAST  SPECTRAL  DIVISION  (HIGHEST  WAVELENGTH)  IN 

TRANSB 

80 

CLJ 

A  WAVELENGTH  BAND  OR  FIRST  SPECTRAL  DIVISION 

TRANSB 

SI 

CLJ 

(LOWEST  WAVENUWER)  IN  A  HAVENUTCER  BAND 

TRANSB 

82 

CLJ 

INPUT  61NART 

FILE 

TRANSB 

83 

CLJ 

TAPIN  - 

EQUIVALENCEO  TO  ITMTE.  CONTAINS  BAND-MODEL 

TRANSB 

84 

CLJ 

PARAMETERS  FOR  5-(CM.l)  RESOLUTION 

TRRNSS 

85 

CLJ 

WSL  • 

LOWER  WAVENUMBER  OF  5- (CM-l)  INTERVAL  FOR  THE  SET 

TRANSB 

86 

CLJ 

1997.5(5.0)4997.5  CM-l 

TRANSB 

87 

CLJ 

MSH  » 

HIGHER  WAVENUMBER  OF  5-(CM-l)  INTERVAL  FOR  THE  SET 

TRANSB 

88 

CLJ 

2002.5(5.0)5002.5  CM-l 

TRANSB 

89 

CLJ 

FOR 

1=1,10  ,  IS=1,10  ... 

TRANSB 

90 

CLJ 

SOD(I.IS)  • 

MEAN  ABSORPTION  COEFFICIENT  FOR  SPECIES-1 S  AT 

TRANSB 

91 

CLJ 

temperature-ihoex-i  for  the  5-(ch-i)  interval 

TRANSB 

92 

CLJ 

FROM  WSL  TTl  WSH,  CH-1  AT  STP 

TRANSB 

93 

CLJ 

OEl(I.lS)  • 

INVERSE  OF  mean  line-spacing  PARAMETER,  OR  THE 

TRANSB 

94 

CLJ 

EFFECTIVE  LINE  DENSITY.  LINES/(CM-1 ) . 

TRANSB 

95 

CLJ 

OUTPUT  PARAMETERS 

TRANSB 

96 

CLJ 

OUTPUT  BINARY  FILE 

TRANSB 

97 

CLJ 

TAPOT  • 

EQUIVALENCEO  TO  LTMTE.  CONTAINS  BANO-WOa 

TRANSB 

98 

CLJ 

PARAMETERS,  DERIVED  FROH  THE  S-(CM-1  )-RESDLUTION 

TRANSB 

99 

CLJ 

DATA,  FOR  the  USER -SPEC IFI ED  INTERVAL  DW  EITHER 

TRANSB 

100 

CLJ 

(A)  CemiNlCATED  THROUGH  THE  DATRSET-Bl  IE 

TRANSB 

101 

CLJ 

TRHSOPT  -  .TRUE.  OR  (8)  SET  BY  AN  ALGORITHM  IF 

TRANSB 

10? 

CLJ 

TRNSOPT  -  .FALSE,  THE  ALGORITHM  IS  THAT  OW  EQUALS  TSANSB 

103 

CLJ 

ONE-HALF  OF  THE  MINIMUM  OH  COMMUNICATED  THROUGH 

TRANSB 

104 

CLJ 

THE  DATASET-Bl,  BUT  NOT  LESS  THAN  5.0  OR  MORE 

TRANSB 

1D5 

CLJ 

THAN  50.0  CH-1 

TRANSB 

106 

CLJ 

WL.  • 

LOWER  AND  HIGHER  WAVENUMBERS  OF 

TRANSB 

107 

CLJ 

NH 

INTERVAL  OH,  CH-1 

TRANSB 

108 

CLJ 

FOR 

I*1.10  ,  IS-1.10  ... 

TRANSB 

109 

CLJ 

Sd.IS)  • 

MEAN  ABSORPTION  COEFFICIENT  FOR  SPECIES- IS  AT 

TRANSB 

no 

CLJ 

TEMPERATURE- INDEX- I  FOR  THE  INTERVAL  DH. 

TRANSB 

111 

CLJ 

CH-1  AT  STP 

TRANSB 

11? 

CLJ 

DEd.IS)  - 

INVERSE  OF  MEA.N  LINE-SPACING  PARAMETER,  OR  THE 

TRANSB 

113 

CLJ 

EFFECTIVE  LINE  DENSITY,  LlNES/(CM-l) 

TRANSB 

114 

CLJ 

TRANSB 

115 
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c 

CL.l 

CLJ 

CLJ 

CLJ 

CLJ 


c 

CLJ 


CLJ 

CLJ 

CLJ 

CLJ 


CLJ 

CLJ 


DIHENSIOH  500(10, 101,  OEI(IO.IO).  5(10. 10).  OE(lD.lO) 

DIMENSION  WLO  BN(1).  HHl  BN(1).  TTLAG  BH(1) 

COUCN  OHARE*.  OWAREA(IO).  OFREHO.  QNDTST,  ONLNKS.  QZSIZE, 

1  ONZBLK,  OZHEM.  0C0UNT(30).  00SI2£(10).  OHSIZE,  OLUNIT(IO). 

2  OERLUN.  QFBITS(2.10),  Q(l) 

EQUIVALENCE  (  Q.  ig  1 
DIMENSION  10(1) 

COMMON  /  XYZCOM  /  ITMTE.  LTMTE.  NS,  HSHEIL(81),  TS(81),  PS(81), 

1  XNSPEC{81.10).  0(10,10,2).  UP(10,10,2).  WCLS, 

2  FACT 
COI*ON  /  OPTION  /  TPNSOPT 

•*  MOTE  *  THE  THREE  HOROS  HLO  6M.  HHI  EM,  ANO  TTLAE  BN  ARE 
IN  REALITY  MOROS-3.  -4,  AND  -6  IN  THE  GRC 
DICTIONARY  DATASET-B!  (NO.  115).  THEIR  SPELLING 
HERE  IS  AN  ARTIFACT  OF  THE  ORIGINAL  PREPARATION  OF 
THE  ROUTINE  BY  L.  EMTNG  OF  GH, 

EOUIVALENCE  (  0(3).  HLO  BN  ).  (  Q(«).  HHI  BN  ), 

•  (  0(6),  TFLAG  bn  ) 

EOUIVALENCE  (  ITMTE.  TAPIN  ),  (  LTMTE.  TAPOT  ) 


C 

CLJ 

CLJ 

CLJ 


INTEGER  TAPIN,  TAPOT 
LOGICAL  TRNSOPT 

THE  INITIALIZED  VALUES  OF  THE  NEXT  FOUR  PARAMHERS  WILL  BE 
RESET.  FOR  EXAMPLE.  WSL  AND  WSH  ARE  RESET  BY  DATA-FILE 
HAVENimERS. 

DM  -  I.EIO 
HDL  •  l.ElO 
HSL  *  0. 

WSH  •  0. 

IBAND  •  0 

LINK  =  LBANO 

IF  (  TRNSOPT  )  GO  TO  13 


C 

C 

CLJ 

CLJ 

1 

CLJ 


SCAN  SPECTRAL  LIST  TO  OBTAIN  BAND  LIMITS  ANO  FINEST  RESOLUTION 
CALL  PREV  (  LINK,  NBN  ) 

IF(  NBN  ,EQ.  0  )  GO  TO  11 

LINT,  HOPO-5  OF  GRC  DICTIONARY  OATASET-BN  (MO.  IH).  IS  LHV 
FOR  LIST  OF  BAHD*INTERVAL  DATASHS-BI  (NO.  115). 

LINT  •  IQ(  NBN  +  4  ) 

DATASET  INOa-J  IS  USED  FOR  SIMPLICITY  INSTEAD  OF  THE 
TRADITIONAL  INOtX-NBl  FOR  DATASET-BI . 

10  CALL  PREV  (  LINT,  J  ) 

IF(  J  .EO.  0  )  GO  TO  9 

THE  ARGUMENT  3  IN  THE  CALL  TO  PUTORA  CAUSES  SORTING  WITH 
RESPECT  TO  HLO  BN(J). 

IF  (  TFLAG  BN(J)  .NE.  0.  )  CALL  PUTORA  (  IBAND,  J,  3  ) 

OH  <  AMINK  DH,  HHI  BN(J)  -  WLO  BN(J)  ) 

HDL  ■  AMINK  WDL,  WLO  BN(J)  ) 

GO  TO  10 


11  OH 


SET  RESOLUTION  FOR  OUTPUT  FILE. 

CHOOSE  0.5  OF  THE  MINIMUM  DH,  BUT  WITHIN  5  TO  50  CM-1  IN  ANT 
EVENT. 

«  AMAXl  (  AMINK  .5  •  OH,  50.  ),  5.  ) 

INITIALIZE  VARIABLES  USED  BELOH.  DESPITE  SPELLING.  IS  THE 


TRANSB 

116 

TRAN  SB 

117 

TRANSB 

118 

TRANSB 

119 

TRANSB 

120 

THA,YS8 

121 

TRANSB 

122 

TRANSB 

123 

TRANSB 

124 

Tk'NSB 

125 

TRAhlB 

126 

TRANSB 

127 

TRANSB 

122 

TRANSB 

129 

TRVISB 

130 

TRANSB 

131 

TRANSB 

132 

TRANSB 

133 

TRANSB 

134 

TRANSB 

135 

TRANSB 

136 

TRANSB 

137 

TRANSB 

138 

TRANSB 

139 

TRANSB 

140 

TRANSB 

14] 

TRANSB 

142 

TRANSB 

143 

TRANSB 

144 

TRANSB 

145 

TRANSB 

146 

TRANSB 

147 

TRANSB 

148 

TRANSB 

149 

TRANSB 

150 

TRANSB 

151 

TRANSB 

152 

TRANSB 

153 

TRANSB 

154 

TRANSB 

155 

TRANSB 

156 

TRANSB 

157 

TRANSB 

158 

TRANSB 

159 

TRANSB 

160 

TRANSB 

161 

TRANSB 

162 

TRANSB 

163 

TRANSB 

164 

TRANSB 

165 

TRANSB 

166 

TRANSB 

167 

TRANSB 

168 

TR.«NSB 

169 

TRANSB 

170 

TRANSB 

171 

TRANSB 

172 

30*5 


CIJ 

SAVEO-VALUE  OF  THE  LO«  END  OF  BA.ND. 

TRANSB 

173 

WH  ■=  NOL 

TRAN  SB 

174 

clj 

WOl  and  WDH  ARE  THE  INITIALIZED  VA;.UES  OF  THE  LON  AND  LiGH 

TRANSB 

175 

CLJ 

SIDES  OF  A  CONTINUOUS  OHECTOR  RANGE. 

TRANSB 

176 

WOL  «  I.EIO 

TRANSB 

177 

WOH  .  0. 

TRANSB 

ITS 

lap  •  0 

TRANSB 

179 

LIMIT  -  IBAND 

TRANSB 

IBQ 

c 

TRANSB 

ISl 

Clj 

SCAN  band-limits  LIST  (WHOSE  LHV-WORO  IS  L1MIT=1BAND)  FOR 

TRANSB 

18? 

CLJ 

spectral  covering. 

TRANSB 

183 

12  call  next  (  LIMIT,  J  ) 

TRANSB 

184 

if  (  J  .EQ.  0  '  GO  TO  7 

TRANSB 

185 

IF  (  TFLAG  BN(J)  ,GE.  2.  )  LAP  =  LAP  ♦  1 

TRANSB 

186 

CLJ 

NOW  UPDATE  VALLES  OF  LOW  AND  HIGH  SIDES  OF  CONTINUOUS  DETECTOR 

TRANSB 

1R7 

CLJ 

RANGE. 

TRANSB 

18? 

WOL  -  amink  WDL.  WLO  BN(J)  ) 

TRANSB 

189 

WDH  -  AN.AXU  WOH.  WHI  BH{J)  ) 

TRANSB 

190 

IF  (  W«0(  TFLAG  BN(J),  2.  )  .EQ.  1.  )  LAP  •  LAP  -  1 

TRANSB 

191 

IF  (  lap  .GT.  0  )  go  to  12 

TRANSB 

19? 

CLJ 

XSKIP  IS  NONZERO  ONLY  f  SPECTRAL  BANOS  HAVE  A  GAP  3ETWEEN 

TRANSB 

193 

CLJ 

THEM. 

TRANSB 

194 

XSKIP  -  IFIX(  (  HDL  -  WH  )  /  OW  ) 

TRANSB 

195 

Clj 

NOW  SET  the  lower  edge  OF  THE  NEW  RANGE  AFTER  THE  GAP. 

TRANSB 

196 

WH  -  WH  +  XSKIP  *  DW 

TRANSB 

197 

GO  TO  1 

TRANSB 

199 

c 

TRANSB 

199 

c 

SCAN  spectral  list  foR  USER  DEFINED  TABLE  RESOLUTION 

TRANSB 

200 

CLJ 

THIS  BLOCK  OF  COO’NG  IS  USED  Or:' V  FOR  TRNSORT  =.TRUE. 

TRANSB 

201 

13  call  P«EV  (  LINK.  NBN  ) 

TRW  SB 

202 

IF(  NBN  .EO-  0  )  60  TO  7 

TRANSB 

20? 

CLJ 

LINT.  WORD-5  OF  GRC  OICTIONARY  DATASET-BN  (NO.  1141.  15  LHV 

TRANSB 

204 

CLJ 

FOR  LIST  OF  BAND-INTERVAL  DATASETS-Bl  (NO.  115). 

TRANSB 

205 

lint  .  iOf  NBN  +  4  ) 

TRASSB 

206 

14  CALL  PREV  (  LINT.  J  ) 

TRANSB 

207 

IF(  J  .EQ.  0  )  GO  TO  13 

TRANSB 

?C8 

WDL  •  WLO  8N(J) 

TRANSB 

209 

WOH  >=  WHI  8N(0) 

TRANSB 

210 

DW  =  WOH  -  WOl 

TRANSB 

211 

WH  •  WOL 

TRANSB 

21? 

IF  (  WOL  .LT.  WSL  )  RtWIND  TAPIN 

TRANSS 

213 

IF  (  WOl  .LT.  WSL  )  WSH  0. 

TRANSB 

214 

IF  (  WDL  .LT.  WSL  )  WSL  *  0. 

TRANSB 

215 

C 

TRANSB 

216 

c 

GENERATE  COHPRESSEO  TABlE 

TRANSB 

217 

1  WL  '  WH 

TRANSB 

218 

WH  -  WH  *  OW 

TRANSB 

21? 

CLJ 

ZERO  THE  S  AND  DE  ARRAYS. 

TRANSB 

220 

CALL  XMIT  (  -100.  0.,  S  ) 

TRANSB 

221 

CALL  XMIT  (  -100.  0.,  DE  ) 

TRANSB 

222 

CLJ 

OLAP  WILL  BE  ZERO  ON  THE  FIRST  PASS  AND  POSSIBLY  MANY  PASSES 

TRANSB 

223 

CLJ 

UNTIL  W5L.GT.WL  . 

TRANSB 

224 

2  OLAP  -  FRAC(  WL.  WH,  WSL,  WSH  ) 

TRANSB 

225 

IF  (  OLAP  .to.  0.  1  GO  TO  4 

TRANSB 

2?6 

C 

TT.ANSB 

2?7 

C 

ACCUMULATE  SPECTRAL  PARAMETERS 

iRANSB 

2?P 

:iJ 

THE  FIRST  10  IS  FOR  10  TEMPERATURES  FOR  THE  FIRST  SPECIES. 

TRANSB 

229 

3Q6 


CLJ 

NETT  to  F0«  SECOND  SPECIES.  ETC. 

TRAN  SB 

2’T 

DO  3  !*!,10P 

TRAN SB 

??i 

IF  (  OEI'I.l'  .EO.  0.  1  GO  TO  3 

TRANSS 

?3? 

OEd.l)  -  Dtd.l'l  +  OLAP  /  DEI(I.l) 

TRANSB 

233 

sd.n  -  sd.d  +  olap  *  soon, it  t  odc.it 

TRANSE 

?3« 

3  CONTINUE 

TRANSB 

23B 

CLJ 

ON  FIRST  PASS,  WJLL  DROP  TtWOUGH  TEST.  WHEN  THE  TEST  'S 

TRANSB 

CLJ 

satisfied,  enough  data  hill  have  been  accu»aulateo  to  cover  the 

TRANSB 

ni 

CLJ 

WIDTH  OW. 

TRANSE 

2?f 

4  IF  (  WSH  .6E.  WH  )  GO  TO  5 

TRANSB 

239 

C 

TRANSB 

240 

C 

BRING  IN  5  CN-1  TABLE  PLANE 

TRANSB 

2A1 

CLJ 

NOTE  that  for  a  BINARY  FILE  NO  FORMAT  IS  NEEDED.  READ 

TRANSB 

24.5 

CLJ 

?♦,'  (10*101*10  )*?0?  WORDS  AND  STORE  IN  WSL.  HSH.  ETC. 

TRANSB 

243 

READ  (TAPIH)  WSL.  HSH.  ((  500(1. IS).  Id. 10  ).  (  ^EI(l.lS),  1  =  1. 10 

TRANSB 

244 

J  15*1,10  ) 

TRANSB 

245 

CLJ 

NOTE  THAT  THE  EOF  FUNCTION  IS  I.SED  TO  TEST  FOR  AN  END-CF-FILE 

TRANSB 

24f 

CLJ 

condition  CN  unit  TAPIN  following  an  UNFORHAnED  R'AD.  2ER0 

TRANSS 

?4T 

CLJ 

IS  RETURNED  IF  MO  ENO-OF*FILE  IS  ENCOUNTERED.  OR  A  N0N-7ER0 

TRANSB 

24B 

CLJ 

VALUE  IF  END-OF-FILE  IS  ENCOUNTERED. 

TRANSB 

249 

IF  (  EOF(TAFIN)  .EO.  0.  )  GO  TO  ? 

TRANSB 

250 

C 

TRANSB 

2j1 

C 

COMPUTE  COMPRESSED  SPECTRAL  PARAMdEKS 

TRANSB 

2S2 

5  DO  6  1*1,100 

TRANSB 

253 

IE  (  OEd.l)  .EO.  0.  )  GO  TO  6 

TRANSE 

254 

OEd.l)  *  1.  /  OE(I.l) 

TRANSB 

255 

Sd.n  -  Sd.l)  ♦  DEd.lt 

TR*NSB 

256 

6  continue 

TRANSE 

257 

r 

TRANSB 

255 

c 

«ITE  COMPRESSED  TABLE  PLANE 

TRANSS 

259 

WRITE  (TAPOT)  WL .  WH,  ((  S'l.IS),  t*l,lO  ).  {  DEd.lS),  1=1,10  1. 

TRANSB 

260 

i  15*1,10  ) 

TRANSB 

261 

CLJ 

THE  following  THREE  STATEMENTS  ARE  RELEVANT  ONLT  FOR  thssCOT  = 

TRANSB 

26? 

CLJ 

•FALSE.  .  THE  FIRST  WOH  IS  THE  HIGH  END  OF  THE  BAND.  IF  TEST 

TRANSS 

265 

CLJ 

IS  SATISFIED,  DO  NEIT  DW  IN  BAND.  THE  NEXT  TWO  STATEMENTS 

TRANSB 

264 

ClJ 

COMPRISE  AN  INITIALIZATION  JiJST  LUCE  THAT  BEFORE  STATEMENT 

TRANSS 

265 

CLJ 

LABEL  1?,  OF  IMPORT  ONLY  FOR  TKNSOPT  =  ,FALSE.  . 

TRANSE 

266 

IF  (  WH  .LT.  WDH  -  .001  )  GO  DO  1 

TRANSS 

263 

WDL  =  I.EIO 

TRANSB 

26S 

WDH  *  0. 

TRANSB 

26? 

CLJ 

NOW  DO  NEXT  SPECTRAL  INTERVU  IF  7VNS0PT* .TRUE.  .  OTHERWISE, 

TRANSB 

270 

CLJ 

continue  with  scan  of  the  band-limits  list. 

TRANSB 

271 

i:(  TRNSOPT  )  GO  TO  14 

TRANSB 

C  4  4 

GO  TO  12 

TRANSB 

273 

C 

TRANSB 

274 

c 

clean  up  and  return 

TRANSS 

276 

2  call  WIPDUT  {  IBAND,  0  > 

TRANSS 

276 

ENDFILE  TAPOT 

TRANSB 

277 

REWIND  TAPOT 

TRANSB 

27P 

rewind  TAPIN 

TRANSB 

•>79 

return 

TRANSB 

7SC 

END 

TRANSB 

281 

307 


SUBWWTtHE  TPHSCO  (  RX.  RX.  RZ,  L8INT.  RAOSM  ) 

TRNSCO 

? 

c 

TRNSCO 

3 

CLJ 

♦TRNSCO*  establishes  THE  TRANSMITTANCE  ON  A  COMPOUND  PATH 

TRNSCO 

4 

C 

FROM  RX  TO  RT  TO  RZ  LOCATION  VECTORS. 

TRNSCO 

5 

CIJ 

TRNSCO 

6 

ClJ 

IF 

RADSW-.TRUE.,  subroutine  ATHRAD  will  be  called  to  PERFORM  A 

TRNSCO 

7 

CLJ 

RADIWCE  CALCULATION.  IF  ONE  WANTS  RAOSW=.TfiOE. .  TWEN  TRNSCO 

TRNSCO 

8 

CLJ 

SHOULD  BE  called  WITH  ONLT  A  STRAIGHT  PATH  AND  HOT  A  Cff»l>OUNO  PATH 

TRNSCO 

9 

CLJ 

BECAUSE  NO  ACCOUNT  IS  TAKEN  OF  THE  SCATTERING  EVENT  AT  THE  POINT 

TRNSCO 

TO 

CLJ 

RY 

TRNSCO 

11 

CLJ 

TRNSCO 

1? 

C 

TRNSCO 

13 

CLJ 

input  PAfiWETERS 

TRNSCO 

14 

CLJ 

ARGUMENT  LIST 

TRNSCO 

15 

CLJ 

RXU)  •  LOCATION  VECTOR  OF  POINT  X.  TYPICALLY  BUT  NOT 

TRNSCO 

16 

CLJ 

NECESSARILT  THE  DETECTOR,  CM 

TRNSCO 

17 

CLJ 

RY(I)  ■=  LOCATION  vector  OF  POINT  Y.  TYPICALLY  BUT  NOT 

TRNSCO 

18 

CLJ 

NECESSARILY  THE  SCATTERING  SITE,  CM 

TRNSCO 

19 

CLJ 

RZ(I)  -  LOCATION  VECTOR  OF  POINT  Z,  TYPICALLY  BUT  NOT 

TRNSCO 

TO 

CLJ 

NECESSARILY  THE  SOURCE,  CM 

TRNSCO 

21 

CLJ 

(FOR  RX,  RT,  AND  RZ  1-1,3) 

TRNSCO 

22 

CLJ 

LBINT  •  WORD  NO.  5  (LHV)  IN  GRC  DATASH-BN  (NO.  114), 

TRNSCO 

23 

CLJ 

LIST  OF  BAND- INTERVAL  DATASETS  (B!). 

TRNSCO 

24 

CLJ 

STRICTLY.  LBIHT  IS  THE  POINTER  (I.E..  CONTAINS  THE 

TRNSCO 

2S 

CLJ 

(0-ARRAT)  ADDRESS)  FOR  THE  LIST  HEADER  OF  THE 

TRNSCO 

26 

CLJ 

BAND- INTERVAL  OATASETS-BI  CORRESPONDING  TO 

TRNSCO 

27 

CLJ 

OATASET-BR. 

TRNSCO 

28 

CL.1 

RAOSW  -  IHITIALIZAYION  SWITCH  FOR  ATMOSPHERIC  VOLUME 

TRNSCO 

29 

CLJ 

EMISSION  CALCULATION,  IS  SET  IN  INPUT  TO  DRIVER. 

TRNSCO 

30 

CLJ 

-  .TRUE.,  INCLUDE  CALL  (FROM  SUBROUTINE  TRNSCO)  TO 

TRNSCO 

31 

CLJ 

SUBROUTINE  ATHfAD 

TRNSCO 

32 

CLJ 

•  .FALSE.,  BYPASS  CALL  TO  SUBROUTINE  ATXIAD  AND 

TRNSCO 

33 

CLJ 

PERFORM  TRANSMITTANCE  CALCULATION  WITHOUT  AIR 

TRNSCO 

34 

CLJ 

EMISSION 

TRNSCO 

35 

CLJ 

DATASET  B1  (BRNO- INTERVAL  OATAStT.  NO.  115) 

TRNSCO 

36 

CLJ 

0(1)  •  BNLO  BI  •  LOW  WAVELENGTH  FOR  WAVELENGTH-BAKO- INDEX 

TRNSCO 

37 

CLJ 

J.  HICRONS 

TRNSCO 

38 

CLJ 

Q(Z)  •  BNHl  e:  -  HIGH  WAVELENGTH  FOR  liAVELENGTH-BANO- 

TRNSCO 

39 

CLJ 

INOEX  J.  MICRONS 

TRNSCO 

40 

CLJ 

0(3)  •  WlO  BI  •  LOW  WAVENUMBER  FOR  WAVELENGTH-BAND- INDEX 

TRNSCO 

41 

CLJ 

J,  CM-1 

TRNSCO 

42 

CLJ 

0(4)  «  WHI  81  ■  HIGH  WAVENUMBER  FOR  WAVELENGTH- BAND- 

TRNSCO 

43 

aj 

INDEX  J.  CM-1 

TRNSCO 

44 

CLJ 

XYZCOM  ccm>N 

TRNSCO 

45 

CLJ 

LTMTE  •  BINARY  FILE  CONTAINING  BANO-MODR  PARAMETERS. 

TRNSCO 

46 

CLJ 

DERIVED  FROM  THE  5-(CM-l)-RESOLUT10N  DATA,  (SEE 

TRNSCO 

47 

CLJ 

subroutine  transb  where  tapot  is  equivalenceo  to 

TRNSCO 

48 

cL  J 

LTMTE.)  here  in  subroutine  TRNSCO.  FILE  LTMTE  IS 

TRNSCO 

49 

CLJ 

REWOUND  FOR  USE  IN  SUBROUTINE  TRANS. 

TRNSCO 

SO 

CLJ 

OPTION  COPPAON 

TRNSCO 

51 

CLJ 

TRNSOPT  •  logical  VARIABLE  AFFECTING  COMPLEXITY  OF  MOLECULAR 

TRNSCO 

52 

CLJ 

TRWSMinANCE  CALCULATION  (SEE  SUBROUTINES  TRANSB 

TRNSCO 

S3 

CLJ 

AND  TRANS).  HERE.  TRNSOPT  IS  USED  ONLY  IN  THE 

TRNSCO 

54 

CLJ 

ARGUMENT  LIST  FOR  THE  CALL  TO  SUBROUTINE  TRANS.  A 

TRNSCO 

55 

CLJ 

call  THAT  OCCURS  ONLY  IF  RAOSW-FALSE..  WICM  IS 

TRNSCO 

56 

CLJ 

NOT  THE  CASE  FOR  THE  NBR  MODULE. 

TRNSCO 

57 

CLJ 

OUTPUT  parameters 

TRNSCO 

58 

3QS 


Ci,J 

CLJ 

CLJ 

ClJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

ClJ 

CLJ 

CLJ 

CLJ 

aJ 

CLJ 

CLJ 

CLJ 

CLJ 

aJ 

CLJ 

CLJ 


C 


CLJ 

CLJ 

CLJ 

CLJ 

CLJ 
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***  l*OTE  TSIISCC 

DESCRIPTION  or  TME  OUTPUT  REQUIRES  CURE.  TRNSCO 

1.  IN  THE  (R«E'  EVENT  TNE  PATH  SHOULD  NOT  IN’ERSECT  THE  TRhSCO 

AT1N05IMERC,  THEN  INITIALI7ED  VALUES  Of  MORD-5  (IF  RAOSW- . TRUE . TRNSCO 
,  WORD-?,  and  MORD-8  Of  OATASET-BI  ARE  EXPLICITLY  SET  HERE  IN  TRNSCO 
TRNSCC.  TPN5C0 

2.  IN  "OlE  USUAL  EVTNT  THAT  THE  PATH  DOES  INTERSECT  THE  ATHOSPHERE.  TRNSCO 

THERE  ARE  THO  CASES  TO  CONSIDER.  TRNSCO 

?.l  RADSH=.TRUE.  (APPLIES  TO  NBR  NODULEI  TRNSCO 

SUBROUTINE  ATNRAO  IS  CALLED  TO  EVALUATE  HORD-5,  -7.  -8  OF  TRNSCO 
OATASET-BI,  BUT  THIS  DATASET  IS  NOT  CALLED  HERE  IN  TRNSCO  AND  TRNSCO 
THUS  IS  NOT  explicitly  AVAILABLE  IN  TRNSCO,  TRNSCO 

2.2  RAOSW-. FALSE.  (DOES  NOT  APPLY  TO  NBR  NODULE)  TRNSCO 

subroutine  ATTRAO  IS  NOT  CALLED.  HENCE  THE  CALLS  THAT  ATYWAO  TRNSCO 
WNCES  TO  GET  THE  TRANSMITTANCE  CALCULATION  DONE  MUST  BE  HADE  TRNSCO 
here  in  TRNSCO.  IN  THIS  CASE  NORO-7  AND  MORD-8  OF  OATASET-9I  TRNSCO 
ARE  EXPLICITLY  AVAILABLE.  TRNSCO 

DEFINITIONS  OF  MDRO-5.  -7.  AND  -8  OF  OATASET-BI  FOlLDM.  TRNSCO 

0(5)  -  BKGNO  BI  -  IN-BAND- INTERVAL  RWIANCE  (DUE  TO  TRNSCO 

ATMOSPHERIC  EHISSION)  OVER  THE  ENTIRE  TRNSCO 

PATH  LENGTH  (WHICH  SXHJID  HAVE  1-LEG  TRNSCO 

AND  NOT  2-LEGS).  H/[CM«?  SR  BANO-INT)  TRNSCO 
0(7)  -  TRANS  BI  •  PRODUCT  OF  MOLECULAR  ANO  AEROSOL  TRNSCO 

TRANSNinANCES  OVER  THE  ENTIRE  PATH  TRNSCO 

LENGTH  TRNSCO 

Q{8)  *  IDSBX  BI  •  AEROSOL  TRANSMITTANCE  OVER  THE  ENTIRE  TRNSCO 
PATH  length.  TRNSCO 

NOTE  THIS  IS  A  TENPOfiJWY  USE  OF  MORD-S  (AND  NOT  TRNSCO 

THE  GRC  dictionary  USE  OF  WORD-8).  HERE  IT  TRNSCO 
USED  TO  CARRY  INFORMATION  TO  SUBROUTINE  TRNSCO 

UPWELL.  TRNSCO 

QNCNC  CO»*«)N  TRNSCO 

NCNC  •  VARIABLE  SET  TO  NC.  SEE  COmENT  ABOVE  /QNCNC/.  TRNSCO 

TRNSCO 

OliCKSION  DS(IOO),  XFRACS(IOO),  INDX(IOO).  RX{3),  aY[3).  RZ(3I.  TRNSCO 

1  TAU(IO),  ABCdO)  TRNSCO 

TRNSCO 

CW*ON  ONAREA,  OWAREAdO).  OFREmO.  ONOTST.  ONLNKS,  OCSIZE,  TRNSCO 

1  ONZBLX.  qZHEAO,  OCOUNTOO).  (X?SI2E(10).  QNSIZE.  OLUNITdOI.  TRNSCO 

2  OERLUN,  OFBITS{2.10).  Od)  TRNSCO 

COtfON  /  XY2C0M  /  ITMTE.  LTMTE,  NS.  HSHELL(Sn.  TS(Sn,  PS(8n,  TRNSCO 

1  XNSPEC(81.10).  '1(10.10.2),  UPdO,10,2),  NMOLS.  TRNSCO 

2  fact  TRNSCO 

COWCN  /  OPTION  /  TRNSOPT  TRNSCO 

COPMON  QNCNC  AND  THE  LATER  STATEMENT  IN  WHICH  NCNC  IS  SET  TO  TRNSCO 

NC  are  added  TO  FACILITATE  BEING  ABIE  TO  CALL  THE  SAI  TRNSCO 

UPMELLING  NATURAL  RADIATION  MODL'LE  WITH  ZERO-XILOME^ER  TRNSCO 

ALTITUDE.  FOR  NORE  INFORMATION  SEE  COPNEEnTS  RECEDING  LABEL  y^NSCO 
NUMBER  22  IN  SUBROUTINE  UPWELL  OF  THAT  MODULE.  TRNSCO 

common/  QNCNC/  NCNC  TRNSCO 

DIMENSION  BNLO  BI(1).  BNHI  81(1),  WLO  Bid),  WHI  Bid).  TRNSCO 

•  »(GNO  BI  d).  TFLAG  Bid).  TRANS  Bid),  IDSBX  Bid)  TRNSCO 

equivalence  (  0(1).  BNLO  BI  ).  {  0(2).  BNHI  BI  ).  TRNSCO 

•  (  0(3).  MLO  81  ).  (  0/4).  WHI  BI  ),  TRNSCO 

•  (  0(5),  BKGND  BI  ).  (  0(6',  TFlAG  BI  ),  TRNSCO 

•  (  0(7).  TRANS  BI  ).  (  0(8).  IDSBX  81  )  TRNSCO 

TRNSCO 


59 

60 
61 
6? 

63 

64 

65 

66 
6’ 
66 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 
102 

103 

104 
IDS 
106 

107 

108 

109 

110 
111 
II? 

113 

114 

115 


30') 


LOGIC)'!  BAPSW,  first.  TRNSORT,  lC-GI: 

TT?\‘^n 

Ilf 

c 

1  \  ^ 

c 

obtain  integration  list 

l\? 

NC  •  0 

TBSSC? 

HR 

CALL  STEo?  <  H,  R),  NC,  PS,  >tRACS.  INP<  T 

TRNko 

1  C? 

call  STfRS  {  RT,  RT,  N^.  PS.  tFRACS.  INP*  ' 

TRNSCO- 

1  ?] 

NCNC  '  NC 

TRNSCO 

ih 

IFf  NC  .GT.  1  )  GO  TO  ?P 

TRNSCi' 

CLJ 

i?4 

CLJ 

TRNSCO 

us 

CLJ 

path  does  not  intersect  atnosrhere.  thus,  onlt  certain 

trnscd 

i?f 

CLJ 

INITIALIZATIONS  ARE  PERFORNEP  HERE  IN  LOOP-IO. 

TRNSC: 

LINT  =  LBINT 

TR*iSCO 

izB 

10  CALL  PfiEVXL  (  LINT,  J  ) 

TRNSCO 

l?c 

IF  f  J  .EO.  0  I  RETURN 

TRNSCO 

130 

if;  RAOSH  '  BAGNO  BItJl  =  0. 

TRNSCO 

131 

TRANS  SI?J'  =  1. 

TRNSCO 

13C 

CLJ 

THE  FOLLOWING  APOItional  INITIALIZATION  IS  APRROORIAte  WHEN 

TRNECO 

13) 

CLJ 

THE  SAI  NA-tliRAL  BAC^GROUNO  RAOIATION  mpLILE  IS  CALLED  WITH 

TVSSC? 

134 

CLJ 

ZERO-AILCIHETER  ALtiTUOt. 

TRSSCO 

1 3‘ 

CALL  XNIT  (-I.1..I0S8I  BUJ)) 

TRNSCO 

13f 

GO  TO  10 

TRNSCO 

13’ 

CLJ 

rtssco 

135 

CLJ 

TRNSCO 

139 

C 

PATH  INTERSECTS  ATHOSP^'ERE 

IJH 

CLJ 

SET  logic  for  first  call  to  ATTNiAP  ANP  FIRST  FOR  FIRST  CALL 

TRNS."' 

HI 

CLJ 

TO  path,  set  FILPOS  and  REWiN...  FILE  LTVTE  FOR  USE  IN  TRANS. 

14? 

?0  logic  '  .TRUE. 

TRNSC  :> 

14’ 

FIRST  •  .TRUE. 

trnscc 

144 

FILPOS  «  1.F4 

'njssr? 

US 

REWIND  LTHTE 

DO  30  1=1. NC 

TRNSCO 

14’ 

CLJ 

recall  that  OSINC+ll  =  -1.0  AND  That  NC-1  •  NOHRER  OF  path 

TTliSCC 

1^* 

CLJ 

SEGMENTS. 

149 

IF(  DSdTlI  .LT.  0.  '  GO  TO  30 

■^ssro 

ISO 

C 

integrate  path  properties 

U1 

CALL  path  (  first,  INDX'M,  PS'I«1'.  XERACStl!  ' 

TRNSCO 

is? 

2 

tHET.NAL  ewissipn  on  rewest 

TRVSCO 

CLJ 

CA'J'^ION 

•RNSCO 

CLJ 

F  SLISSOI'TISE  THNSCO  IS  EXERCISED  ON  A  COHOOUNO  PATH  WITH 

T-NSCO 

155 

CLJ 

RArSH=.TPUE. ,  THE  TRANSMITTANCE  CALCULA’ION  WILL  BE  CORRECT 

TRNSCO 

ISF 

CLJ 

but  the  radiance  CALCULATION  WILL  BE  INCORRECT  BECAUSE  NO 

TRNSCO 

IS' 

CLJ 

ACCOUNT  HAS  BEEN  TAKEN  OF  The  SCAttfr;!^  EVEN’  at  RV. 

IF  (  RADSW  I  call  ATHIAO;  logic.  INDX'I!,  XFRACSfl),  osn*!). 

TRNSCO 

isa 

*  LBINT  1 

is: 

30  continue 

TRNSCO 

\C'l 

CLJ 

IN  N8R  NODULE.  RADSW=.TRUE.  ,  SO  WE  ARE  THROUGH  WITH  SUBROUTINE 

T5S'^:C 

If  r 

CLJ 

TRNSCO. 

T^HSC? 

153 

IF  (  RA05W  I  RrrURN 

164 

CLJ 

TRH5.C'' 

ISS 

CL.) 

trnsc-d 

ClJ 

**** ^ * ^ ******** ^ ***** ^ * ^ ********* *  **•  •  • 

CLJ 

RENAINING  PCWt;on  Qt  THIS  SOl'TiNE  IS  NPT  USED  IN  THE 

C.**  TO 

CLJ 

STAftOARD  •‘ODE  OF  OPERATING  thE  NBR  NODulE  with  RADSw  .TRUE  . 

f.Z 

CLw 

>  ®  *» 

CLJ 

ZERO  FIRST  halves  OF  THE  U  AND  L'P  ARRA*S. 

■TJSS-.' 

CAlL  XNIT  -lOV-,  0.,  .  1 

TBIjT.--' 

CALL  XMIT  (  -100.  0..  UP  ) 

TRNSCO 

173 

CLJ 

SCAN  SPECTRAL  EAND-INTERVAL  LIST. 

TRNSCO 

174 

LINT  "  LBINT 

TRNSCO 

176 

40 

CALL  PREVNL  (  LINT,  J  ) 

TRNSCO 

176 

IF  (  J  .EO.  0  )  RETURN 

TRNSCO 

177 

WL  •  ULO  BI(J) 

TRNSCO 

178 

WH  =  WHI  BI(J) 

TRNSCO 

179 

CLJ 

SET  MEAN  RAVELENGTR  FOR  CALL  TO  AEROSOL. 

TRNSCO 

180 

W  ■=  0.5*(WL*WH) 

TRNSCO 

181 

RAVEL  =  1.E4/W 

TRNSCO 

182 

C 

obtain  TRANSMISSION  FOR  EACH  SPECTRAL  INTERVAL 

TRNSCO 

1B3 

CLJ 

GET  molecular  TRANSMITTANCE  ANO  TEMPORARILY  CALL  IT 

TRNSCO 

184 

CLJ 

TRANS  PUJ). 

TRNSCO 

185 

CALL  TRANS  (  10,  1.  UC.l,?),  UPd.l.Z).  *1.  WL,  WH,  TAU,  ABC, 

TRNSCO 

186 

‘  TRANS  BKJ).  TRNSOPT,  FILPOS  ) 

TRNSCO 

187 

CLJ 

initialize  THE  AEROSOL  TRANSMITTANCE  TOST 

TRNSCO 

188 

TOST  =  1. 

TRNSCO 

189 

CLJ 

GET  THE  altitude  AT  THE  FIRST  POINT  P  ALONG  THE  TRANSMITTANCE 

TRNSCO 

190 

CLJ 

PATH. 

TRNSCO 

191 

LI  *  IN0*(1)  J  L2  .  IN0X(2) 

TRNSCO 

192 

HSP  =  XFRACS(l)  *  HSHELL(Ll)  +  (1. -XFRACSd ) )  *  HSMELUL?! 

TRNSCO 

193 

call  aerosol  (  HSP,  HAVEL.  XKSCA,  XKABS.  GBAR  ) 

TRNSCO 

194 

CLJ 

XKEXTP  IS  THE  AEROSOL  EXTINCTION  COEFFICIENT  AT  POINT  P,  1/CM 

TRNSCO 

195 

XXEXTP  *  XXSCA  +  XKABS 

TRNSCO 

196 

00  50  1=1, NC 

TRNSCO 

197 

IF  (  DSd+1)  .LE.  0.  )  GO  TO  60 

TRNSCO 

198 

LI  =  INOXd) 

YRNSCO 

199 

L2  -  INDX(I*1) 

TRNSCO 

200 

CLJ 

GET  THE  ALTITUDE  AT  POINT  Q  ALONG  THE  TRANSMITTANCE  PATH. 

TRNSCO 

20! 

F'SO  '  XFRACS(l-H)  •  HSHELL(L2)  ♦  (  1.  -  XFRACSd+1)  )  »  HSHELLi'Ld 

TRNSCO 

202 

call  aerosol  I  HSQ.  WAVEL.  XKSCA,  XKABS,  GBAR  ) 

TRNSCO 

203 

CLJ 

XKEXTO  IS  the  aerosol  EXTINCTION  COEFFICIENT  AT  POINT  0,  1/CM 

TRNSCO 

204 

XKEXTQ  =  XKSCA  +  XKABS 

TRNSCO 

205 

CLJ 

FIND  THE  MEAN  AEROSOL  EXTINCTION  COEFFICIENT  OVER  THE  PATH 

TRNSCO 

206 

CLJ 

ELEMENT  CSd+1)  S'  INTESIATIKG  THE  LOGARITHMICALLY- 

TRNSCO 

207 

CLJ 

INTERPOLATED  VALUE  OF  THE  EXTINCTION  COEFFICIENT  OVER  DSd+l] 

TRNSCO 

208 

CLJ 

AND  DIVIDING  BY  DSlI*!}. 

TRNSCO 

209 

XKEXT  •  ACCUMI  2.  0.,  USd+l).  XKEXTP,  XKCXTO,  0.,  05(1+1)  )  / 

TRNSCO 

210 

*  0S(I+11 

TRNSCO 

211 

CLJ 

TOST  IS  THE  AEROSOL  TRANSMinANCE  FROM  THE  START  OF  THE  PATH 

TRNSCO 

212 

CLJ 

TO  THE  BACK  OF  ELEMENT  DSd+1) 

TRNSCO 

213 

TOST  =  TOST  *  exp;  -XKEXT  •  U5;!+11  1 

TRNSCO 

214 

CLJ 

RESET  EXTINCTION  COEFFICIENT  OF  MEH  POINT  P  TO  THAT  AT  THE 

TRNSCO 

215 

CL  1 

(ILP  POINT  0. 

TRNSCO 

216 

XKEXTP  =  XKEXTQ 

TRNSrn 

217 

50 

continue 

TRNSCO 

218 

CLJ 

IRAN5  BKJ!  IS  NOW  RESET  TO  BE  THE  PRODUCT  OF  THE  MOLECULAR 

TPN5CC 

?'.9 

CLJ 

TRANSMITTANCE  FOR  ALL  THE  SPECIES  AND  THE  AEROSOL 

TRNSCO 

220 

CLJ 

transmittance,  EACH  FOR  THE  ENTIRE  PATH, 

TRNSCO 

221 

60  TRANS  BKJI  ■  TVANS  BI(J)  *  TOST 

TRNSCO 

??? 

CLJ 

PRESERVE  the  AEROSOL  TRANSMITTANCE  BY  SCHING  IOSBX  BKJ). 

TRNSCO 

223 

CALL  XMIT  (1. TOST, IOSBX  BKJ)) 

TRMSCO 

224 

GO  TO  40 

TRNSCO 

225 

END 

TRNSCO 

226 

511 
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SUBP.OUTIHE  UNITY  {  VX,  VXHAT  ) 


SUBROUTINE  UNITY  RETURNS  TNE  UNIT  YECTOR  YXHAT(]-3)  ALONG 
THE  YECTOR  YX(1.3). 

DIMENSION  YX(3).  YXHAT(3) 

CALL  YLIN  (  YXHAT,  I  ./S0RT(t)OT(YX,  VX) ),  VX,  0.  ,  0.  ) 

RETURN 

END 


SUBROUTINE  UPUELL  (  MSM.OO.WN.DW.SPCULR.LBIMT.JBAND  ) 

subroutine  UPWELL.  for  A  POINT  V  AT  EACH  OF  A  SET  OF  NALTJ 
Al.TITUOES  ABOYE  A  GIYEN  GEOGRAPHIC  POSITION,  SPECIFIED  IN 
UPWELS  COMMON  (UPWLAT.UPWLON.UPMALT)  and  CHARACTERIZED  BY 
MATERIAL  MSM  AND  PROPERTY  OD{MSM),  COMPUTES  THE  NATURAL 
UPWELL ING  SFECTRAL  RADIANCE  DIRECTED  TOWARD  POINT  Y  FROM 
POINTS  P  LOCATED  ON  THE  EARTH’S  SURFACE  WITH  RESPECT  TO  POINT 

Y  AT  NNADIR  REPRESENTATIYE  NADIR  ANGLES  AND  NAZI  REPRESENTA¬ 
TIVE  AZIMUTH  ANGLES.  THIS  UPWELLING  RADIANCE.  UPRAD( 1 . J,K,L) , 
INCLUDES  CONTRIBUTIONS  FROM  (1)  AIR  EMISSION  BETWEEN  POINTS 

V  AND  P.  (Z)  SURFACE  EMISSION  AT  POINT  P.  AND  (3)  SURFACE- 
REFLECTED  SOLAR  RADIATION  AT  EACH  POINT  P.  VALUES  OF  THE 
RADIANCE  UPRAO(I,J,X,L)  ARE  AVERAGED  OVER  AZJKDTH  ANGLES  TO 
GIVE  UPRA0A(I,J,L)  AND  OVER  NADIR  ANGLES  TO  GIVE 

UPRAON( I.L.OBAND). 

***  NOTE  SEE  COMMENTS  GIVEN  UNDER  OUTPUT  PARAMETERS  FOR 

*•*  ***  THE  DIFFERENT  MEANING  OF  UPRADN(I,L,JBAND)  IN 

***  the  grc  and  sai  versions. 

THE  INCLUSION  OF  NATURAL  CLOUDS  COMPLICATES  THE  MODELING.  NO 
ATTEMPT  IS  MADE  TO  INCLUDE  THE  DETERMINISTIC  CLOUD  SUBMODEL. 
THE  STATISTICAL  CLOUD  SUBMODEL  IS  INCLUDED  ONLY  FOR  ALTITUDES 
ZKH  EQUAL  TO  OR  GREATER  THAN  THE  HIGHEST  ALTITUDE  (12  RM)  OF  A 
CLOUD  IN  THAT  SUBMODEL.  THE  GENERAL  PROCEDURE  IS  TO  FIRST 
CONSIDER  A  GIVEN  ALTITUDE,  NADIR.  AND  AZIWTH.  WITH  THE  AIR 
EMISSION,  ARCVA(IKH,0,L).  ALONG  THE  LINE-OF-SIGHT  (LOS)  ABOVE 
IZ-KM  altitude  serving  as  a  BASE  VALUE.  HE  OBTAIN  A 
DISTRIBUTION  FUNCTION  FOR  THE  ADDITIONAL  RADIANCE 
CORRESPONDING  TO  CLOUD-FREE-  AND  CLOUDY-LOS  EXTENDING  BELOW 
12-KM  ALTITUDE.  BECAUSE  THERE  ARE  159  CLOUD  CONFIGURATIONS  IN 
THE  statistical  CLOUD  MODEL,  THIS  DISTRIBUTION  FUNCTION  HAS 
160  members  for  NIGHTTIME  AND  161  MEMBERS  FOR  DAYTIME... 

159  FOR  CLOUD-TOP  EMISSION  AND  (IF  DAYTIME) 
CLOUD-REFLECTED  SOLAR  RADIATION 
1  FOR  EARTH'S  SURFACE  EMISSION  AND  AIR  EMISSION  BELOW 
12-KM  altitude  (FOR  A  1-LEG  CLOUD-FREE  LOS) 

1  FOR  EARTH'S  SURFACE  EMISSION,  AIR  EMISSION  BELOW  12- 
KM  ALTITUDE,  AND  (IF  DAYTIME)  GROUND-REFLECTED  SOLAR 
RADIATION  (FOR  A  2-LEG  CLOUD-FREE  LCS,  OBTAINING  IN 
DAYTIME) 

THE  LAST  TWO  HEMBERS  ARE  THE  WEIGHTED  CONTRIBUTIONS  FOR  CLOUD- 
FREE-LOS  CONDITIONS.  (OWING  TO  CERTAIN  SIMPLICATIONS  MADE 
;n  THE  CLOUD  MCOELING.  THERE  ARE  ACTUALLY  ONLY  9  AND  NOT  159 
DISTINCT  VALUES  IN  THE  DISTRIBUTION  FOR  A  CLOUOY-LOS.)  HAVING 
DETERMINED  THE  DISTRIBUTION  FUNCTION  FOR  A  GIVEN  LOOK 
DIRECTION  FROM  POINT  V,  WE  FORM  THE 

INTEGRAL  DISTRIBUTION  AND  COMPUTE  SELECTED  PERCENTILES  (XXX= 
10,25,50,90,100)  OF  THE  INTEGRAL  DISTRIBUTION,  RXXX(K.L).  AT 
implicit  ALT.-IKM,  IMPLICIT  NADIR-J.  AND  EXPLICIT  AZIMITH-K. 
VALUES  OF  RXXX(K,L)  ARE  AVERAGED  OVER  AZIMUTH  ANGLES  TO  GIVE 
RXXXA(1KM,J,L).  VALUES  OF  ARCVA{ IKH. J.Ll  ANP  RXXXAI !KM, J,L ) 
ARE  AVERAGED  O'.'ER  NADIR  ANGLES  TO  GIVE  AnrvHf|i(M,i  I  AND 
RXXXN(IKH,L),  RESPECTIVELY. 
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UPWELL 
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UPWELL 
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***  NOTE  ***  SINCE  TWE  INCLUSION  OE  THE  INDEX  OBAND  WAS  A 
LATE  CHANGE  (HARCH  1980).  ME  ELECTED  MOT  TO  MODIFY  THE  ARRAYS 
ARCVN(IXM.L)  AND  RXXXH{ IKM.L)  TO  PROVIDE  FOR  AN  EXPLICIT 
DEPENDENCE  OH  THE  INDEX  JBAHD  AS  HE  DID  FOR  THE  ARRAY  UPRADNd 
.L.JBANO).  THIS  LIMITATION  MIST  BE  REMEMBERED  AND  REMOVED  IF 
JBANO.GT.l  AND  IF  CLOUDS  ARE  INCLUDED,  UNLESS  ONE  IS  CONTENT 
TO  ADOPT  THE  GRC  DEFINITION  Of  UPRADN( I ,L. JBAND) . 

MOTE  THAT  IT  MOULD  PROBABLY  BE  FORE  CONCEPTUALLY  SATISFYING  IF 
ONE  COULD  PERFORM  AZIMUTH-  AND  NADIR-AVERAGES  FOR  EACH  OF  THE 
aOUO  CONFIGURATIONS.  SO  THAT  ONE  COULD  END  UP  MITH  A 
distribution  function  at  a  GIVEN  ALTITUDE  INSTEAD  OF  AVERAGED 
RERCEHTILE-VALUES.  SUCH  A  PROCEDURE  MAS  NOT  FOLLOWED, 
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c 

UPHELL 

70 

c 

NOTE  THAT  THE  NATURAL  CLOUD  MODEL  DOES  NOT  INCLUDE  AIR 

UPHELL 

71 

c 

EMISSION  BETWEEN  CLOUD  TOPS  AND  IZ-KM  ALTITUDE. 

HENCE.  SUCH 

UPUFLL 

7? 

c 

AIR  EMISSION  IS  MOT  INCLUDED  HERE.  EITHER. 

UPHELL 

73 

CCC 

UPHELL 

74 

CC 

THE  UPUELLING  NATURAL  RADIATION  FODEL 

(?3C)  HAS 

NOW  BEEN 

UPHELL 

75 

CC 

INTEGRATED  WITH  THE  FOLLOWING  MODELS. 

•  .  . 

UPHELL 

76 

CC 

AMBIENT  ATWSPHERE 

ik 

SAI/LJ 

UPHELL 

77 

rc 

ATMOSPHERIC  AEROSOLS 

1C. 19. 1C 

VI 

UPHELL 

78 

(C 

NATURAL  CLOUDS 

ID. 19. ID 

SAl/PA 

UPUELL 

79 

CC 

ATMOSPHERIC  THERMAL  EMISSION 

206 

GET 

UPHELL 

80 

CC 

EARTH  SURFACE  CHARACTERIZATION 

23A 

SAl/LJ 

UPUELL 

81 

CC 

EARTH  SURFACE  RADIANCE 

23B 

SAl/LJ 

UPUELl 

8? 

CC 

SOLAR  RADIATION 

23E 

SAl/LJ 

UPHELL 

83 

CC 

MOLECULAR  TRANSMITTANCE 

?4D 

GH 

UPHELL 

84 

CCC 

UPHELL 

85 

c 

INPUT  PARAMETERS 

UPWELL 

86 

c 

ARGUMENT  LIST 

UPWELL 

87 

c 

MSM  .  INDEX  FOR  CATEGORY  OF 

SURFACE  MATERIAL  (SEE 

UPHELL 

88 

SUBROUTINE  ESl«F  FOR  DEFINITIONS)  UPHELL  89 

DO  -  ADDITIONAL  DESCRIPTOR  FOR  SELECTED  SURFACE  UPHELL  90 

MATERIAL  (SEE  SUBROUTINE  ESURF  FOR  DEFINITIONS)  UPHELL  91 

M  -  ARRAY  OF  CENTRAL  WAVENUMBERS,  CM-1  UPHELL  9Z 

DH  -  ARRAY  OF  WAVENUMBER-INTERVAL  WIDTHS,  CM-1  UPHELL  93 

SPCULR  -  LOGICAL  PARAMETER  UPWELL  94 

-  .TRUE.  COMPUTE  COORDINATES  Of  SPECULAR  UPHELL  95 

REFLECTION  POINT  OH  A  9100TM  UPHELL  96 

HORIZONTAL  HATER  SURFACE.  UPHELL  97 

■  .FALSE.  DO  NOT  COMPUTE  COORDINATES  OF  SPECULAR  UPHELL  98 

REFLECTION  POINT.  UPWELL  99 

LBINT  -  WORD  NO.  5  (LHV)  IN  GRC  DATASET-BN  (NO.  114),  UPUELL  100 
LIST  OF  BAND-INTERVAL  DATASETS  (BI).  UPHELL  101 

STRICTLY.  LBINT  IS  THE  POINTER  {I.E.,  CONTAINS  UPWELL  10? 

THE  (Q-ARRAY)  ADDRESS)  FOR  THE  LIST  HEADER  OF  UPHELL  103 

THE  BAND-INTERVAL  DATASETS-BI  CORRESPONDING  TO  UPHELL  104 

OATASET-BM.  UPHELL  105 

JBAND  -  INDEX  FOR  LIST  OF  (BROAD)  WAVELENGTH  BANDS  UPHELL  106 
AIRSOL  COWCN  UPHELL  107 

TASP(L)  -  AEROSOL  TRANSMITTANCE  FOR  INCOMING  SOLAR  RAY  TO  UPUEIL  108 
POINT  P  ON  GROUND.  L*1,NHAVEJ  UPHELL  109 

TASC(L)  -  AEROSOL  TRANSMITTANCE  FOR  INCOMING  SOLAR  RAY  TO  UPHELL  liO 
POINT  C  AT  IZ-KM  ALTITUDE.  L-l.NHAVEJ  UPHELL  111 

OPTINl  COFtWN  UPHELL  11? 

RADSU  .  logical  PARAMETER.  IS  AN  INITIALIZATION  SWITCH  UPHELL  113 
FOR  ATMOSPHERIC  VOLUME  EMISSION  CALCULATION.  UPHELL  114 

IS  SET  IN  INPUT  TO  (DRIVER)  PROGRAM  OfiVUPU  FOR  UPWELL  115 
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c 

subroutine  upwell. 

UPWELl 

116 

c 

*  .TRUE.  ,  INCLUDE  CALL  (FROM  SUBROUTINE  TRNSCOl 

UPWELL 

117 

c 

TO  subroutine  ATMRAD 

UPWELL 

IIP 

c 

-  .FALSE..  BYPASS  CALL  TO  SUBROUTINE  ATMRAD  AND 

UPWELL 

no 

c 

PERFORM  TRANSMITTANCE  CALCULATION 

UPWELL 

1?0 

c 

WITHOUT  INCLUDING  AIR  EMISSION. 

UPWELL 

1?] 

c 

OPTION  CONMON 

UPWFLL 

I?? 

c 

TRNSOPT  -  LOGICAL  VARIABLE  AFFECTING  COMPLEXITY  OF 

UPWELL 

I?3 

c 

MOLECULAR  TRANSMITTANCE  CALCULATION  (SEE 

UPWELL 

1?4 

c 

SUBROUTINES  TRANSB  AND  TRANS).  IN  SUBROUTINE 

UPWELL 

125 

c 

UPWELL.  TRNSOPT  IS  USED  ONLY  IN  THE  ARGUMENT 

UPWELL 

126 

c 

LIST  FOR  CALLS  TO  SUBROUTINE  TRANS. 

UPWELL 

127 

c 

SOLARP  CONMON 

UPWELL 

1?S 

c 

SOLLAT  -  SUBSOLAR  POINT  NORTH  LATITUDE.  RADIANS 

UPWELL 

129 

c 

SDLLON  -  SUBSOLAR  POINT  EAST  LONGITUDE.  RADIANS 

UPWELL 

no 

c 

SOLIRR(L)  (c'l.NWAVEJ) 

UPWELL 

ni 

c 

-  SOLAR  SPECTRAL  IRRADIANCE  AT  THE  TOP  OF  THE 

UPWELL 

132 

c 

EARTH'S  ATMOSPHERE  AT  WAVENUMBER- INDEX  L 

UPWELL 

133 

c 

WAHS  /  (  CM«2  CM-l  ) 

UPWELL 

134 

c 

UPWELS  COMMON 

UPWELL 

135 

c 

UPWLAT  -  NORTH  LATITUDE  OF  POINT  V  AT  WHICH  UPWELLING 

UPWELL 

136 

c 

RADIANCE  IS  COMPUTED.  RADIANS 

UPWELL 

137 

c 

UPWLON  -  EAST  LONGITUDE  OF  POINT  V  AT  WHICH  UPWELLING 

UPWELL 

138 

c 

RADIANCE  IS  COMPUTED.  RADIANS 

1'"WELl 

139 

c 

UPWALT  -  SURFACE  ALTITUDE  OF  THE  SUB-V-POINT,  XM 

UPWELL 

140 

c 

NALT(JBAND1  ( JBANn=l .NBANDS) 

UPWELL 

141 

c 

-  NUMBER  OF  ALTITUDES  EKM  FOR  (POOAO)  WAVELENGTH- 

UPWELL 

142 

c 

BAND  INDEX  J8AND.  DEFINES  NALTJ. 

UPWELL 

143 

c 

ZKM(I,JBAND)  (I=i. NALTJ.  JBAND«1 .NBANDS) 

UPWELL 

144 

c 

-  ALTITUDES  OF  PO;NT  V  ABOVE  UPWAL^  AT  WHICH 

UPWELL 

145 

c 

UPWELLING  radiance  IS  COMPUTED,  XM 

UPWELL 

146 

c 

NNADIR  -  NUMBER  OF  NADIR  ANGLES  AT  POINT  V  AT  WHICH 

UPWELL 

147 

c 

UPWELLING  RADIANCE  IS  COMPUTED 

UPWELL 

l4P 

c 

NAZI  -  NUMBER  OF  AZIMUTH  ANGLES  AT  POINT  V  AT  WHICH 

'JPWELL 

149 

c 

UPWELLING  RAniA),C£  IS  COMPUTED 

UPWELL 

150 

c 

NWAVE(JBAND)  ( JBAND-l .NBANDS) 

UPWELL 

ISl 

c 

-  NUMBER  OF  WAVENUMBERS  AT  WHICH  THE  UPWELLING 

UPWELL 

152 

c 

SPECTRAL  RADIANCE  IS  TO  BE  COMPUTED  FOR  (BROAD) 

UPWELL 

153 

c 

WAVELENGTH-BAND  INDEX  JBAND.  DEFINES  NWAVEJ. 

upwell 

154 

cc 

CLDFLG  -  INDEX  FOR  INCLUSION  Of  NATURAL  CLOUDS 

UPWELL 

155 

cc 

-  0.  IF  NATURAL  CLOUDS  ARE  NOT  INCLUDED 

upwell 

156 

cc 

■  1,  IF  NATURAL  CLOUDS  ARE  INCLUOFO 

UPWELL 

157 

cc 

CLOFREO  COEWON 

UPWELL 

15S 

cc 

KMOOEL  -  INDEX  (1,11)  CHARACTERIZING  A  SET  OF  STAUSTICAL 

UPWELL 

ISO 

cc 

AVERAGES  OF  CLOUD  COVERAGE  CATEGORIES.  CLOUD 

UPWELL 

160 

cc 

TYPES,  AND  NUMBER  OF  CLOUD  LAYERS  FOR  A  GIVEN 

UPWELL 

161 

cc 

GEOGRAPHIC  REGION.  CHARACTERIZES  A  SPECIFICATION 

UPWELL 

16? 

cc 

OF  CCOVERIS.ll)  AND  CFREQln.A.ll)  IN  BLOCX  DATA 

UPWELL 

16’ 

cc 

FOR  XM0DEL«1,10.  JSEk  MUST  SUPPLY  HIS  OWN  DATA 

UPWELL 

164 

cc 

FOR  KMOOEL *11. 

UPWELL 

16'- 

cc 

CCOVER 1 1 CC .KMOOEL )  ( ( I CC-1 ,S) .KMOOEL  *1,11) 

UPWELL 

16'. 

cc 

-  FRACTIONAL  OCCURRENCE  FREQUENCY  OF  CLOUD  COVERAGE 

UPWELL 

167 

cc 

CATEGORY  ICC  FOR  GIVEN  KHODEL 

UPWELL 

16B 

cc 

CLDWT  COEWON 

UPWELL 

160 

cc 

IDX  -  INDEX  FOR  LENGTH  OF  ARRAYS  RETURNED  FROM 

UPWELL 

170 

cc 

subroutine  CLOUT.  lOX  EQUALS  16C  FOR  A  FULL  SFt 

UPWELL 

171 

cc 

OF  ISO  CLOUD-LAYER  AND  CLOUD-TYPE  CDNFIGURA'riONS 

UPWELL 

177 
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cc 

MID  IS  LESS  FOR  A  RESTRICTED  SET. 

uphell 

173 

cc 

WT(I)  -  PROBABILITY  OF  C0NFI6URATI0M-I.  IDT  EQUALING  160 

UPWFLL 

174 

cc 

I-I.IDX  CORRESPONDS  TO  A  CIOUD-FREE  LINE-OF-SIGHT. 

uphell 

175 

cc 

TRANSd)  -  TRANSFER  COEFFICIENT  FOR  CPNFIGURATION-I .  IN  NBR 

UPWELL 

176 

cc 

I=1.ID*-1  MODULE.  GEOMETRY  FOR  TRANSMISSION  THROUGH  CLOUDS 

UPHELL 

177 

cc 

IS  NOT  INCLUDED.  ONLY  GEOMETRY  FOR  REFLECTION  OF 

UPHELL 

17R 

cc 

SOLAR  RAY  FROM  THE  HIGHEST-LATER  CLOUD  IN 

UPHELL 

179 

cc 

CONFIGURATION-!  IS  INCLUDED.  ATTENUATION  IS 

UPHELL 

180 

cc 

INCLUDED  (WITHIN  THE  NATURAL  CLOUD  MODELI  TO  12- 

UPHELL 

131 

cc 

KM  ALTITUDE.  (1/SR) 

UPHELL 

182 

cc 

FMTSS(I)  -  THERMAL  SPECTRAL  RADIANCE  FROM  THE  HIGHEST-LAYER 

UPHELL 

183 

cc 

I-1,IDX-1  CLOUD  IN  CONFIGURATION- I  WITH  ATTENUATION  COMPUTED 

UPHELL 

184 

cc 

(WITHIN  THE  NATURAL  CLOUD  MODEL)  TO  12-KM  ALTITUDE 

UPHELL 

185 

rc 

(H/(KM**2  SR  MICRON  1) 

UPHELL 

186 

c 

ONCNC  COMWN 

UPHELL 

187 

c 

NCNC  -  A  VARIABLE.  SET  TO  NC  AFTER  THE  DOUBLE  CALL  TO 

UPHELL 

ISP 

c 

SUBROUTINE  STEPS  IN  SUBROUTINE  TRnSCO,  EMPLOYED  TO 

UPWELL 

1P9 

c 

FACILITATE  BEING  ABLE  TO  USE  ZERO  KILOMETER 

UPHELL 

190 

c 

ALTITUDE  IN  THE  NBR  MODULE.  FOR  MORE  INFORMATION. 

UPWELL 

191 

c 

SEE  COMMENTS  PRECEDING  LABEL  HUMBER  22. 

UPHELL 

192 

c 

OUTPUT  PARAMETERS 

UPHELL 

193 

c 

»**  NOTE  ***  UPRAD(K.L).  UPRADAd.J.L).  AND  UPRADNd.L. 

UPWELL 

194 

c 

JBAND)  ARE  CLOUD-FREE  RESULTS.  FOR  RESULTS  WHICH  ALSO 

UPWELL 

195 

c 

INCLUDE  CLOUD  EFFECTS  FOR  ALTITUDES  .GE.  12  KM. 

UPHELL 

196 

c 

USE  The  corresponding  ARRAYS  RXXX(K.L).  RXXXAdKM.  J.L ) . 

UPHELL 

197 

c 

AND  RXXXNdKM.L).  TO  THESE  ARRAYS  ONE  MUST  ADD. 

UPHELL 

19E 

c 

RESPECTIVELY.  THE  BaSE-VALUE  QUANTITIES  ARCVAflKM.O.L ) , 

UPWELL 

199 

c 

ARCVAdKM.J.L),  and  ARCVNdKM.L). 

UPHELL 

200 

c 

•••  NOTE  ***  IN  THE  GRC  VERSION.  FOR  ALTITUDES  EQ'IAL  TO 

UPWELL 

20! 

c 

OR  GREATER  THAN  12  KM  AND  IF  CLOUDS  ARE  INCLUDED.  THE 

UPmElL 

2G,' 

c 

ARRAT  UPRAONd.L.JBANO)  IS  RESET  AS 

UPWELL 

203 

c 

UPRADNd.L, JBAND)  *  ROSONdKM.L)  ♦  ARCVNdKM.L)  , 

UPHELL 

204 

c 

WHICH  IS  transferred  THROUGH  UPWELS  COMMON  TO  (THE  GRC) 

UPHELL 

206 

c 

SUBROUTINE  UPWELT.  THUS.  IN  THE  GRC  VERSION.  FOR 

UPWELL 

206 

c 

ALTITUDES  ZKM.GE.12-KM.  UPRAON  IS  NOT  THE  CLOUD-FREE 

UPHELL 

207 

c 

RESULT  BUT  THE  50-PERCENTILE  OF  THE  RADIANCE 

UPHELL 

208 

c 

DISTRIBUTION  FUNCTION  FOR  STATISTICAL  CLOUDS  (IF 

UPHELL 

20R 

c 

INCLUDED  IN  THE  PROBLEM). 

UPWELL 

210 

c 

UPWEL53  COFWON 

UPWELL 

211 

c 

UPRAD(K.L)  Kd.NAZI.  L=1,NWAVEJ 

UPHELL 

212 

c 

(IMPLICITLY  dl.NALTJ,  0=l.NNAruR) 

UPWELL 

213 

c 

(I-  AND  J-DEPENDENCE  IS  NOT  STORED,  SO  USER 

UPWELL 

214 

c 

MUST  PRINT  UPRAD(K,L)  IMMEDIATELY  AFTER 

UPHELL 

216 

c 

computation  if  he  HANTS  TO  SEE  THEM). 

UPHELL 

216 

c 

CURRENTLY,  UPRAO(K,L)  /WD  RXXX(K.L)  ABE  BEING 

UPHELL 

217 

c 

HRIHEN  IN  BINARY  FORM  ON  LOGICAL  UNIT  NO.  8, 

UPWELL 

21 P 

c 

FOR  ALL  APPROPRIATE  ALTITUDES  AND  NADIRS. 

UPHELL 

219 

c 

-  NATURAL  UPWELLING  SPECTRAL  RADIANCE  RECEIVED 

UPHELL 

220 

c 

AT  POINT  V  (AT  ALTITUDE-I  ABOVE  SURFACE  MAT'RL 

UPHELL 

221 

c 

M5M)  ALONG  A  RAY  DIRECTED  TO  POINT  P  ON 

UPWELL 

22? 

c 

EARTH'S  SURFACE  (AT  NADIR-.I  AND  AZIMiFTH-K  ) , 

UPWELL 

223 

c 

HATTS/!CM«?  SR  CM-1) 

UPHELL 

224 

c 

UPRADA( I.J.L)  I-l.NALTJ,  J-1,NNADIR,  L-1,NHAVEJ 

UPHELL 

226 

c 

-  THE  AZIMUTH-AVERAGED  VALUE  OF  UPRADIK.L), 

UPWELL 

226 

c 

HATTS/(CM**7  SR  CM-1! 

UPHELL 

22? 

c 

SORCE  COMMON  (SOLAR  COORDINATES  ARE  HEEDED  IN  SUBROUTINE 

iiphFll 

228 

c 

transf  of  the  natural  Cloud  module.) 

UPHELL 

??a 

31S 


noooooooor*r>ooonom<^ooof>or*>or>or>oof>r>oofirioc^or»oonorir>oooor>or>oor>o 


NSORCE  -  NUMBER  OF  SOURCES.  SET  TO  1  IN  DATA  STATEMENT.  UPWELL  230 

HSORCE(l)  -  ALTITUDE  OF  SUN  (RSUN).  RSUN  SET  IN  DATA  UPWELL  231 

STATEMENT.  UPWELL  232 

RSORCE(l)  -  RADIUS  OF  SOURCE.  TRUE  VALUE  FOR  SUN  IS  NOT  UPWELL  233 
RELEVANT  FOR  THIS  APPLICATION  IN  NATURAL  UPWELL  234 

BACKGROUND  RADIATION  MODULE.  SET  TO  0.0  IN  UPWELL  235 

DATA  STATEMENT.  UPWELL  236 

THETAS  -  COIATITUOE  OF  SUBSOLAR  POINT,  DEGREES  UPWELL  237 

PHIS  -  EAST  longitude  OF  SUBSOLAR  POINT,  DEGREES  UPWELL  238 

TECTOR  COmON  (USED  HERE  TO  POSITION  FICTITIOUS  DETECTOR  UPWELL  239 

AT  POINT  V)  UPWELL  240 

OETLAT  -  DETECTOR  NORTH  LATITUDE,  RADIANS  UPWELL  241 

DETLON  -  DETECTOR  EAST  LONGITUDE,  RADIANS  UPWELL  242 

DETALT  -  DETECTOR  ALTITUDE.  KM  UPWELL  243 

POSITN  COWON  UPWELL  244 

POSLAT  -  NORTH  LATITUDE  Of  POINT  P  AT  WHICH  LINE-OF-  UPWELL  245 

sight  INTERSECTS  EARTH'S  SURFACE.  RADIANS  UPWELL  246 

POSLON  -  EAST  LONGITUDE  OF  POINT  P  AT  WHICH  LlNE-OF-  UPWELL  247 

SIGHT  INTERSECTS  EARTH'S  SURFACE,  RADIANS  UPWELL  248 

POSALT  -  ALTITUDE  OF  POINT  P  AT  WHICH  LINE-OF-SIGHT  UPWELL  249 

INTERSECTS  EARTH'S  SURFACE,  KM  UPWELL  250 

C12LAT  -  NORTH  LATITUDE  OF  POINT  C  AT  WHICH  LINE-OF-  UPWELL  251 

SIGHT  INTERSECTS  THE  12-KN  ALTITUDE  SURFACE.  UPWELL  252 

RADIANS  UPWELL  253 

CiaON  -  EAST  LONGITUDE  OF  POINT  C  AT  WHICH  LINE-OF-  UPWELL  254 

SIGHT  INTERSECTS  THE  12-KM  ALTITUDE  SURFACE.  UPWELL  255 

RADIANS  UPWELL  256 

C12ALT  -  ALTITUDE  OF  POINT  C  AT  WHICH  LINE-OF-SIGHT  UPWELL  257 

INTERSECTS  12-KN  ALTITUDE  SIRFACE.  KM  UPWELL  258 

UPWELS  COWON  UPWELL  259 

lOAYV  -  INDEX  FOR  DAYLIGHT  CONDITION  AT  SUB-V-POINT  UPWELL  260 

•  C  IF  SOLAR  zenith  ANGLE  .GT.  90  DEGREES  UPWELL  261 

■  1  IF  SOLAR  ZENITH  ANGLE  .LE.  90  DEGREES  UPWELL  262 

UPRADNd.L.JBANO)  I-1,NAITJ.  L*1,HWAV£0.  J8AND.1  .NBANDS  UPWELL  263 
-  THE  HAOIR-AVERAGEO  VALUE  Of  UPRADA(I.O.L),  UPWELL  264 

WAnS/(CM**2  SR  CM-1)  UPWELL  265 

IKM  -  INDEX  FOR  NUMBER  OF  ALTITUDES  AT  WHICH  UPWELL  266 

CALCULATIONS  ARE  MADE  WHEN  CLOUDS  ARE  INCLUDED.  UPWELL  267 

(USED  IN  SUBROUTINE  SURRAD)  UPWELL  268 

UPWELSl  COWON  UPWELL  269 

ARCVA(IKM.J,L)  FOR  IKM.GE.l.  J'l.NNADIR,  UPWELL  270 

L'l.MWAVEJ  UPWELL  271 

-  WHEN  CLOUDS  ARE  CONSIDERED,  A  COMPONENT  OF  THE  UPWELL  27? 

UPWELLING  SPECTRAL  RADIANCE  RECEIVED  AT  POINT  V  UPWELL  273 

(AT  ALTITUDE- IKM),  FROM  AIR  EMISSION  ABOVE  12-KM  UPWELL  274 

ALTITUDE.  ALONG  A  RAY  DIRECTED  TO  POINT  P  ON  THE  UPWELL  275 

EARTH  SURFACE  (AT  NADIR- J  AND  INDEPENDENT  OF  UPWELL  276 

A7IMUTH-K),  WATTS/(CM«2  SR  CM-1)  UPWFI L  "7/ 

ARCVNdKM.L)  FOR  IKM.GE.l.  L*1,NWAVEJ  UPWELL  278 

-  THE  NADIR-AVERAGED  VALUE  OF  ARCVA( IKM, J.L ),  UPWELL  279 

UATTS/(CM«2  SR  CM-1)  UPWELL  280 

RXXX(K,L)  (XXX-10. 25. 50,90. 100)  UPWELL  281 

-  XXX  PERCENTILE  OF  THE  INTEGRAL  DISTRIBUTION  OF  THE  UPWELL  282 

TOTAL  (INCLUDING  THAT  FROM  STATISTICAL  CLOUDS]  UPWELL  283 

NATURAL  UPWELLING  SPECTRAL  RADIANCE  RECEIVED  AT  UPWELL  284 

POINT  V  FOR  WAVENUMBER-L  (AT  IMPLICIT  ALTITUDE-IKM  UPWELL  285 

ABOVE  SURFACE  MATERIAL  MSM)  ALONG  A  RAY  DIRECTED  UPWELL  286 
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TO  POINT  P  OH  E«TH  SURFACE  (AT  IMPLICIT  NAOIR-J 
AND  EXPLICIT  A2IMUTH-K).  UATTS/fCH«2  SR  CM-1) 
**NOTE  THAT  RXXX(KA)  DOES  NOT  INCLUDE 

arcva(  ikm  j  lk 

CURRENTLtI  UPRA0(K,L)  and  RXXX(X,L)  are  BEING 
WRITTEN  IN  BINARY  FORM  ON  LOGICAL  UNIT  NO.  8. 
FOR  ALL  APPROPRIATE  ALTITUDES  AND  NADIRS. 
RXXXAdKM.J.L)  (XXX*10. 25. 50,90,100) 

-  THE  AZIMUTH-AVERAGED  VALUE  OF  RXXX(K,L), 

WATTS/(CM*«2  SR  CK-1) 

RXXXN(1KM,L)  (XXX-10. 25.50,90. 100) 

-  THE  NADIR-AVERAGED  VAlUE  OF  RXXXA{IXM,J,L), 

MAnS/(CM«2  SR  CM-1) 

FLAGS  COMMON 

ITFLAG  -  FLAG  INDICATING  THE  DIURNAL  CONDITION  AT  POINT  V. 
FOR  USE  BY  SUBROUTINE  CLOHT  IN  THE  NATURAL  CLOUD 
MODULE. 

•  0.  SUN  IS  BELOW  THE  HORIZON 

•  1,  SUN  IS  ABOVE  THE  HORIZON 
SANDD  COMMON 

XS,  -  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  THE  SUN. 
YS.  (KM) 

2S 

XD,  -  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  THE 
YD,  FICTITIOUS  DETECTOR  AT  POINT  V. 

ZD  (KM) 

UL,  -  DIRECTION  COSINES  OF  POINT  P  FROM  POINT  V. 

VL. 

UL 

UPWELS2  COPMON 

JBANDl  -  SAME  AS  JBANO,  BUT  MADE  AVAILABLE  TO  SUBROUTINE 
SURRAD  TO  FACILITATE  PRINT. 


COMMON  0BLNKQ(a9),  0(1) 

EQUIVALENCE  (Q.IQ) 

DIMENSION  10(1) 

DIMENSION  BNLO  Bid),  BNHI  Bt(l).  WLO  BI(1).  WHI  BI(1), 

*  BKGHD  Bid),  TFLAG  BI(1).  TRANS  Bl(l),  IDSBX  81(1) 

***  SEE  SUBROUTINE  ATNRAD  FOR  DEFINITIONS  OF  DATASET  BI 

KiUI VALENCE  (  Q(l).  BNLO  BI  ).  (  q(2).  BNHI  BI  ). 

*  Q(3),  WLO  BI  ),  (  0(4).  WHI  BI  ), 

•  (  0(5),  BK6ND  BI  ).  (  0(6).  TFLAG  BI  ), 

•  (  0(7),  TRANS  BI  ),  (  0(8),  IDSBX  BI  ) 

01Mr«SI0N  RP(3),RC(3),RV(3).TAU(10),OMEGAT(13),HWdO).DWdO) 
DiMENSICN  DD(7).RAD(12).UPSd0.10.11).UPPS(10.10,lI). 

t  XS(10,10)  .UPCSdO.lO), 

i  UPVdO.lO)  ,UPPV(10,I0), 

S  UCV(10,10)  .UPCVdO.lO), 

$  USPVdO.lO)  .UPSPVdO.lO). 

$  USCV(IO.IO)  .UPSCVdO.lO) 

DIMENSION  TAPVdOI.nPV(10),TTSPVdO).TMSPVdO),AEPV(10) 
DIMENSION  TACVdO).TTCVdO),TTSCV(10).TMSCV(10),AECV(10) 
DIMENSION  ABC(IO) 

DIMENSION  HTCd62),UPRAOC(162).UPR0Cld62) 

COPPWN/OPTION/  TRNSOPT 


COPtON  /  OPTINl  /  RADSW 
COPHON/  ONCHC/  NCNC 


UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 


287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 
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COWCN/AIRSOL/  TASP(10).TASC(10),TAFP(10)  AIRSOL  2 

CO»10N/Cl.OFREQ/  KMOOEL.CCOVER(5.11).CFRE0(l7,4,ni  CLOFREQ  2 

COt*IOH/CI.DWT/  lDX,WT(161),TRANS(161).EmSS(161)  CLDBUG  1 

COMMON/POSITH/  POSLAT.POSLON.POSAtT.SPCLAT.SPCLON  POSITH  2 

;  ,C12LAT.C12L0I(,C12ALT  POSITH  3 

COMMON  /SAHOD/  XS,VS.ZS,XO.Y0,2O,UL.Vl.WL  SANDOO  2 

SAI’S  /SORCE/  DIFFERS  FROM  GRC'S.  24APR80  2 

COItlON/  SORCE/  NSORCE,HSORCE(l),RSORCE(l), THETAS, PHIS  KOHATM  1 

COMMON/SOLARP/  SOLLAT.SOLLON.SOlIRR(IO)  SOLARP  2 

CONMON/TECTOfi/  OETlAT.OETLON.OETALT.OETZEN.DETAZKll )  TECTOR  2 

COfWON/UPHEtS/  UPWALT,UPWION.UPHLAT,HALT(5).»M(13,S),NNAOIR.nAZI,  UPWELS  2 

*  MHAVE(5I.I0AYV.CLDFLG.UPRADN(13,10.5).«V(10.S).1XM.  UPHELS  3 

*  NBANDS  UPWELS  4 

COMMDN/UPHELSl/  UPWELS  5 

2  R010(6.10),R010A(6.10.10KR010N(S,10).  UPWELS  6 

3  R025(6,10).R025A(6.10.10).R025N(6,10).  UPWELS  7 

4  R050(6,10),R050A(6.10.10).R050N(6,10).  UPWELS  8 

5  R090(6.10).R090A(6.10,10).R090N(6,10),  UPWELS  9 

e  R100(6.10).R100A(6.10,10).R100N(6,10)  UPWELS  10 

7  ,ARCVA(6.10.10).ARCYH(6,10I  UPWELS  11 

C07WON/UPWELS2/  JBANOl  XYZCOM  2 


COMMON/UPWELS3/  UPRAOfS. 10), UPfiA0A(13, 10,10) 

XYZCOM 

3 

CO>t«N/  XYZCOM/  ITMTE,LTMTE,NS,MSHELL(81),TPX(81,12), 

XYZCOM 

4 

1  U(10,10.2),UP(10.10,2).HM0lS,FACT 

XYZCOM 

5 

C 

SAi'S  /FLAGS/  DIFFERS  FROM  GRC’S. 

24APft80 

1 

COM40N/  FLAGS/  ITFLAS 

FLAGS 

2 

LOGICAL  SPCULR.SPCLRX.RAOSW.TRNSOPT 

UPWELL 

356 

DATA  PI.RE  /  3.141592S53590,6.37l03E+O3  / 

UPWELL 

357 

DATA  HSPECS.NTEHP  /  IU,10  / 

UPWELL 

358 

DATA  NSORCE,  RSORCEC)  /  1,  0.0  / 

UPWELL 

359 

DATA  RSUN  /  1.495979E+08  / 

UPWELL 

360 

ccc 

UPWELL 

361 

cc 

SET  JBANOl  IN  COI*«N  /UPWELS2/  TO  FACILITATE  SOME  PRINT  IN 

UPWELL 

362 

cc 

SUBROUTINE  SURRAO. 

UPWELL 

363 

JBANOl  JBANO 

UPWELL 

364 

ccc 

UPWELL 

365 

cc 

Sn  VARIABLES  IN  TECTOR  COtfON  FOR  INITIAL  POSITION  OF 

UPWELL 

366 

cc 

DETECTOR  AT  SUBPOINT  W,  FOR  USE  IN  DETERMINING  THE  REFERENCE 

UPWELL 

367 

cc 

AZIMUTH  ANGLE. 

UPWELL 

368 

OETlAT  •  UPWLAT 

UPWELL 

369 

DETLON  •  UPWLON 

UPWELL 

370 

DETALT  -  UPWALT 

UPWELL 

371 

cc 

SET  REFERENCE  AZIMUTH,  REFAZI,  TO  BE  THAT  OF  THE  SUBSOLAR 

UPWELL 

372 

cc 

POINT  WITH  RESPECT  TO  POINT  V  IF  SUN  IS  ABOVE  THE  HORIZON  AT 

UPWELL 

373 

cc 

SUBPOINT  V  OR  ZERO  OTHERWISE. 

UPWELL 

374 

PI02  *  Pl/2. 

UPWELL 

375 

REFAZI  *  0.0 

UPWELL 

376 

cc 

IS  SUN  ABOVE  THE  HORIZON  AT  SUBPOINT  Y'T 

UPWELL 

377 

SINSIN  -  S1N(OETLAT)»SIN(SOLLAT) 

UPWELL 

378 

COSCOS  •  COS(DETLAT)»COS(SOLLAT) 

UPWELL 

379 

CSSOLZ  •  SINSIN  ♦  COSCOS»COS(OEaON-SOLLON) 

UPWELL 

380 

lOAYV  *  0 

UPWELL 

381 

cc 

UPWELL 

38? 

cc 

WHEN  (A)  CORE  IS  PRESET  TO  NON-ZEROS  AND  (B)  SUN  IS  BELOW 

UPWELL 

383 

cc 

THE  HORIZON,  WE  NEED  TO  SET  THE  SOLAR  COORDINATES  TO  ARBITRARY 

UPWELL 

384 

cc 

VALUES  SO  THAT  SUBROUTINE  SGEOM  (CALLED  FROM  EMISSF,  CALLED 

UPWELL 

385 

cc 

FROM  CLDWT,  CALLED  FROM  UPWELL)  WILL  NOT  ABORT  IN  TRYING  TO 

UPWELL 

386 

318 


cc 

COMPUTE  SOmCE  SEOMETHY  EVEN  WHEN  WE  DON’T  WANT  IT. 

upwell 

387 

XS  -  0.  $  TS  •  0.  J  ZS  -  0. 

upwell 

388 

cc 

UPWELL 

389 

IF(  CSSOCZ.LT.D.O  )  GO  TO  10 

UPWELL 

390 

IDAYV  *  1 

UPWELL 

391 

cc 

determine  azimuth  of  subpoint  S’  Of  SUN  BY  USING  A  MODIFIED 

UPWELL 

392 

cc 

HARC  SUBROUTINE  GEOREA.  NOTE  THAT  GEOREA  CALLS  A  HARC  ROUTINE 

UPWELL 

393 

cc 

GEOXVZ  WHICH  WE  HAVE  RENAMED  GEOTAN  TO  DISTINGUISH  IT  FROM 

UPWELL 

394 

cc 

THE  SAI  ROUTINE  GEOXYZ. 

UPWELL 

395 

DALTCM  •  1.0E»O5*0ETALT 

UPWELL 

396 

CALL  GEOREA(DALTCM.PID2-DETLAT.OETLON,O.O.P!DZ-SOLLAT.SOLLON, 

UPWELL 

397 

S  SRZl.ELZl.REFAZI) 

UPWELL 

398 

cc 

NOW  HA'.E  REFAZI.  ALSO  HAVE  UNHEEDED  SRZl  AND  ELZl. 

UPWELL 

399 

cc 

GET  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  SUN  FOR  SGEOM. 

UPWELL 

400 

CALL  6E0X YZ ( R5UN , SOLLAT, SOLLON , XS. YS, ZS) 

UPWELL 

401 

cc 

SET  COORDINATES  OF  SUN  INTO  SORCE  COWON  FOR  TRANSF. 

UPWELL 

402 

HSORCE(l)  *  RSUH 

UPWELL 

403 

THETAS  •  (PID?-SOLLAT)»180./PI 

UPWELL 

404 

PHIS  •  SOLLOH*180./PI 

UPWELL 

405 

cc 

UPWELL 

406 

cc 

ZERO  ARRAYS  USPV,  UPSPV,  USCV,  AND  UPSCV  USED  LATER  TO 

UPWELL 

407 

cc 

PRESERVE  PArH  PARAMETERS  FOR  THE  PATHS  SPV  AND  SCV. 

UPWELL 

408 

CALL  XMIT  (  -100,  0..  U  S?V  ) 

UPWELL 

409 

CALL  XMIT  (  -100.  0..  UPSPV  ) 

UPWELL 

410 

CALL  XMIT  (  -100.  0..  U  SCV  ) 

UPWELL 

411 

CALL  XMIT  (  -100.  0.,  UPSCV  ) 

UPWELL 

412 

cc 

UPWELL 

413 

10  CONTINUE 

UPWELL 

414 

cc 

UPWELL 

415 

cc 

SET  ALTITUDES  OF  ALL  POINTS  P  (TO  BE  VIEWED  FROM  POINT  V) 

UPWELL 

416 

cc 

EQUAL  TO  THE  SURFACE  ALTITUDE  OF  THE  SUB-V-POINT. 

UPWELL 

417 

POSALT  •  UPWALT 

UPWELL 

418 

PALTCM  .  1.0E*05*POSALT 

UPWELL 

419 

cc 

IKM  =  INDEX  FOR  THE  HUMBER  OF  ALTITUDES  AT  WHICH  NATURAL 

UPWELL 

420 

cc 

CLOUDS  HAVE  BEEN  INCLUDED  IN  THE  UPWELLING  RADIANCE 

UPWELL 

421 

cc 

CALCULATION  (REQUIRED  BECAUSE  CLOUDS  ARE  INCLUDED  ONLY  FOR 

UPWELL 

422 

cc 

ALTITUDES  ZKM  EQUAL  TO  OR  GREATER  THAN  1?.  KM). 

UPWELL 

423 

IKM  .  0 

UPWELL 

424 

cc 

BEGIN  LOOP  OVER  NALTJ  ALTITUDES. 

UPWELL 

426 

NALTO  *  NALT(JBANO) 

UPWELL 

426 

00  80  1-1. NALTJ 

UPWELL 

427 

cc 

IIP.JJP.KKP.LLF  are  THE  LOOP  INDICES  USED  IN  THE  CALL  TO 

UPWELL 

428 

cc 

SUBROUTINE  SURRAD  WITHIN  THE  WAVENIR^ER  LOOP. 

UPWELL 

429 

IIP  -  I 

UPWELL 

430 

IF(  ZKM;i,JBAHD)  ,LT.  O.OOl  )  ZKMd.JBAND)  «  0.001 

UPWELL 

431 

OETALT  *  UPWALT  ♦  ZKM(I.JBANO) 

UPWELL 

432 

DALTCM  =  1.0E*O5*0ETALT 

UPWELL 

433 

cc 

GET  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  POINT  V. 

UPWELL 

434 

CALL  GE0XYZ(DETALT,DETLAT.0ETL0N.RV(1).RV(?),RV(3)) 

UPWELL 

435 

cc 

GET  earth-centered  CARTESIAN  COORDINATES  OF  DETECTOR  FOR  SGEOM 

UPWELL 

436 

XO  -  RV(1) 

UPWELL 

437 

TO  -  RV(?) 

UPWELL 

438 

ZD  •  RV(3) 

UPWELL 

439 

CALL  VLIN(RV,1.0E*-05,RV.0. 0.0.0) 

UPWELL 

440 

cc 

FOR  altitude  OETALT,  DETERMINE  FRACTION  OF  Z»PI  SOLID  ANGLE, 

UPWELL 

441 

cc 

OMEGAT,  THAT  IS  SUBTENDED  BY  THE  TANGENT  CONE  WITH  VERTEX  AT 

UPWELL 

447 

cc 

POINT  V.  FIRST,  COMPUTE  SLANT  RANGE,  SRT.  OF  TANGENT  RAV 

UPWELL 

443 

31'^ 


cc 

FROM  ?OINT  V. 

UPWELL 

444 

SRT  •  SqRT(  (2,*RE+DETALT)»0EULT  ) 

UPWELL 

445 

cc 

COMPUTE  COSINE  OF  NADIR  ANGLE,  CBETAT  -  C0S(8ETAT),  CORRES¬ 

UPWELL 

446 

cc 

PONDING  TO  TANGENT  PJ^Y. 

UPWELL 

447 

CBETAT  *  SRT/;rE+D£TALT) 

UPWELL 

448 

OMEGAT(l)  .  l.O-CBETAT 

UPWELL 

449 

cc 

IT  HAY  NOT  BE  NECESSARY  TO  SAVE  THESE  SOLID  ANGLE  FACTORS. 

UPWELL 

4n 

cc 

aOFGl  -  FLAG  CONTROLLING  A  TEMPORARY  ASPECT  OF  THE 

UPWELL 

451 

cc 

CLOUD-RELATED  CALCULATIONS.  CLOFGl  IS  ALWAYS  0.0  IF 

UPWELL 

452 

cc 

aOFLG  -  0.0  BUT  HAY  BE  0.0  OR  1.0  IF  aOFLG  *  I.O  . 

UPWELL 

453 

cc 

CLOFGl  IS  SET  TO  0.0  JUST  BEFORE  THE  TEST  ON  ALLOWED 

UPWELL 

454 

cc 

altitudes  and  MASTER  FLAG  (CLDFLG)  FOR  INCLUSION  OF  CLOUDS 

L'PWELL 

455 

cc 

AND  IS  RESET  TO  1.0  JUST  AFTER  THIS  TEST. 

UPWELL 

456 

cc 

CLOFGl  CONTROLS  THE  CALCULATION  OF  (A)  CFPV  IN  NADIR  LOOP, 

UPWELL 

457 

cc 

SINCE  CFPV  IS  independent  OF  AZIMUTH  BUT  DEPENDENT  ON  NADIR 

UPWELL 

458 

cc 

AND  HENCE  ALTITUDE,  ANO  (B)  VARIOUS  CLOUD-T ELATED  QUANTITIES 

UPWELL 

459 

cc 

IN  wavenumber  loop. 

UPWELL 

460 

cc 

«  1.0  ALLOWS  CALCULATION  ON  FIRST  PASS. 

UPWELL 

461 

cc 

-  0.0  BTPASSES  CALCULATION  ON  LATER  PASSES  OR 

UPWELL 

462 

cc 

BYPASSES  CALCULATION  ON  ALL  PASSES  IF  CLDFLS-O.O. 

UPWELL 

463 

CLOFGl  •  0.0 

UPWELL 

464 

IF(  (ZKMd.JBAND)  .LT.  12.0)  .OR.  (CLDFLG  .EQ.  0.0)  )  GO  TO  17 

UPWELL 

465 

ccc 

UPWELL 

466 

cc 

***  GOT  HERE  FOR  CLOUDS,  DAY  OR  NIGHT 

UPWELL 

467 

IKM  -  IKM+l 

UPWELL 

468 

CLOFGl  -  1.0 

UPWELL 

469 

IF(  IICM.GT.I  )  GO  TO  17 

UPWELL 

470 

ccc 

UPWELL 

471 

cc 

GOT  HERE  FOR  aOUDS,  ZKM(l.JBAND)  •  12.0  KM  *••*»*****«*•**«* 

UPWELL 

472 

cc 

SET  ALTITUDES  OF  ALL  POINTS  C  (TO  BE  VIEWED  FROM  POINT  V) 

UPWELL 

473 

cc 

EQL'AL  TO  12-KM. 

UPWELL 

474 

CIZALT  •  12.0 

UPWELL 

475 

CALTCM  *  1.0E+05«C12ALT 

UPWELL 

476 

cc 

THE  NATURAL  CLOUD  MODEL  (NCM)  FUNCTION  CFLOSF( !CC,CHI ) 

UPWELL 

477 

cc 

COMPUTES  THE  PROBABILITY  OF  A  CLOLTI-FREE  L1NE-0F-SI6HT 

UPWELL 

478 

cc 

(CFLOS),  GIVEN  THE  aOUD  COVERAGE  IN  TENTHS  (ICC'UDll)  ANO 

UPWELL 

479 

cc 

ZENITH  angle  CHI  (DEGREES).  HERE,  WE  WANT  CFPS.  A  MEAN 

UPWELL 

480 

cc 

PROBABILITY  OF  A  CFLOS  FROM  POINT  P  TO  THE  SUN,  OBTAINED  BY 

UPWELL 

481 

cc 

AN  AVERAGE  OVER  THE  NCM  CLOUO-COVERAGE  VALUES  OF  0,3,5, 8,  ANO 

UPWELL 

48? 

cc 

10  TENTHS,  OCC'IRRING  WITH  PROBABILITIES  CCOVER( I ,>:K)DEL) 

UPWELL 

483 

cc 

(1-1,5).  FOR  A  SELECTED  VALUE  OF  KMOOEL.  WE  ASSUME  THE  SOLAR 

UPWELL 

484 

cc 

ZENITH  ANGLE  SOLZ  AT  THE  SUBPOINT  V  IS  AN  EXCELLENT  APPROX. 

UPWELL 

485 

cc 

IMATION  TO  THOSE  AT  ALl  POINTS  P. 

UPWELL 

486 

IF(  IDAYV  .EC.  0  )  GO  TO  17 

UPWELL 

487 

ccc 

UPWELL 

488 

cc 

***  GOT  HERE  FOR  CLOUDS,  DAY  ««»«»««»«««««»«**»««*««««*«**«*««*««« 

UPWELL 

489 

RTD  •  180. /PI 

UPWELL 

490 

SOLZ  •  HTo*ACos(  cssaz  ) 

UPWELL 

491 

CFPS  -  CCOVERd. KMOOEL )*CFL0SF(1, SOLZ) 

UPWELL 

49? 

1  +  CCOVER(2.KMODEL)*CFLOSF(«,SOLZ) 

UPWELL 

493 

2  +  CCOVER(3.KMODEL)*CFLOSF(6,SOLZ) 

UPWELL 

494 

3  +  CCOVER(«.KM)DEL)*CFLOSF(9,SOLZ) 

UPWELL 

495 

A  ♦  CCOVER(5.KMODEL)*CFLOSFdl,SOLZ) 

UPWELL 

49C 

cc 

THE  ABOVE  CALCULATIONS  WE  DONE  ONLY  FOR  THE  FIRST 

UPWELL 

497 

cc 

ALTITUDE  AT  WHICH  A  CLOUD  CALCULATION  IS  DONE. 

UPWELL 

498 

ccc 

UPWELL 

499 

17  CONTINUE 

UPWELL 

500 
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***  60T  HEUE  FOd  DAT  OR  H16HT,  REGARDLESS  OF  aOOOS  «•••••*«•*** 

PREPARE  TO  LOO"  OVER  RRAiIR  HADIR  ARSLES  CORRESPORDIRfi  TO 
FRACTllES  OF  OMEGAT,  FRCTL. 

Fm  -  NNAOIR 
00  70  J'l.mAOlR 
JJP  •  J 
FJ  -  J 

FRCTL  •  (FJ-0.5)/FI« 

COHPOTE  KAOIR  AR6LE  SETA  CORRESPOHDIIIG  TO  FRACTILE  FRCTL. 

SETA  -  ACO*(  1.0-Fi(CTL»0MEGAT(I)  ) 

COWUTE  ZEHIT»I  ARGLE,  CHI.  OF  POIRT  V  VIEWEO  FROM  POINT  P 
(THE  INTERSECTION  POINT  AT  THE  EARTH'S  SURFACE  OF  THE  RAY 
FROM  POINT  V  AT  NADIR  ANGLE  BETA). 

CHI  -  ASIN(  (l.O.0ETALT,^E)»SIH(8ETA)  ) 

COMPUTE  THE  EARTH  CENTRAL  ANa.E,  ALPHA,  SUBTENDED  BY  POINTS  P 
AND  V. 

.MP;HA  ■  CHI -BETA 

IF(  CLOFGl  .EO.  0.0  )  GO  TO  20 

GOT  HERE  FOR  aOODS,  DAY  OR  NIGHT  . . . . 

COMPUTE  ZENITH  ANGLE.  CHIC.  OF  POINT  V  VIEWED  FROM  POINT  C 
(THE  INTERSECTION  POINT  AT  THE  12-RM  ALTITUDE  SURFACE  OF  THE 
RAY  FROM  POINT  V  AT  NADIR  ANGLE  BETA  TO  POINT  P). 

CHIC  -  BETA 

IF(  OETALT  .GT.  C12ALT  )  CHIC  •  ASIN(  ((RE+I>ETALT)/(RE<C12ALT))" 

S  SIM(BETA)  ) 

COMPUTE  THE  EARTH  CENTRAL  ANGLE.  AlPHAC.  SUBTENDED  BY  POINTS  C 
AND  V.  ALPHAC  IS  USED  LATER. 

ALPHAC  •  CHIC  -  BETA 

EXPRESS  CHI  IN  DEGREES  (CHID)  AS  REQUIREu  FOR  INPUT  TO 
SUBROUTINE  aOWT. 

CHID  •  CHI  *  RTD 
20  CONTINUE 

PREPARE  TO  LOOP  OVER  NAZI  AZURTTH  ANGLES.  RESET  MAXIHW 
Nl«ER  OF  AZIMUTH  AMGLES,  NAJI,  TO  BE  1  IF  IBAYV-0  OR  MSM*' . 
IF(  (IDAYV.EQ.O)  .OR.  (MSH.EO.l)  )  NAZI  «  1 
INITIALIZE  AZIMUTH  ANGLE. 

FIONA  •  PI/FLOAT(NAZI) 

A2I  •  R£FAZI-0.5«P1DHA 
DO  60  K<1,NAZI 
XKP  •  S 

ALLOW  SOLAR  SPECULAR  REFLECTION  POINT  TO  BE  COMPUTED  ONLY  ONCE 
PER  ALTITLOE.  HOWEVER,  IF  IDAYV-0  OR  MSM.NE.2  WE  DO  NOT 
COHPUTE  SPECULAR  REFLECTION  POINT  AT  ALL. 

SPaRX  •  SPCULR  .AND.  t(0HC).EQ.2) 

IF(  (iOATV.EO.O)  .OR.  (M5M.NE.2)  )  SPaRX  -  .FALSE. 

A2I  -  AZI+PIW!A 

MUST  SET  LATITUDE  AND  LONGITUDE  OF  POINT  P  IN  POSITN  ONWN. 
USE  REVISED  HWC  SUBROUTINE  AGAGEO  WITH  POINT  1  BEING  POINT  V 
AND  POINT  2  BEING  POINT  P. 

CALL  AGA6EO(OALTCM.PI02-DETLAT,OE7LON.A2I,ALPHA.PALTCM,PSCLAT. 

$  POSLON) 

POSLAT  •  P1D2-PSCLAT 
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21 


NOW  HAVl  latitude  AND  IGNGITUOE  OT  POINT  P. 

GET  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  POINT  P. 

CALL  6EO»YZ(POSALT.POSLAT,?OSL(lN.RP(l).fiP(2),RP(3)I 

SET  direction-cosines  UL.  VL.  and  W.  of  POINT  P  FROW  POINT  ¥. 
UL  •  RP(n-XD 
VL  •  RPv'Zy-YO 
WL  -  RP(3)-ZO 

RRl  =■  I.O/SORT(  UL*'JL  ♦  VL*VL  *  WL*Wl  ) 
tJL  «  Ul  *ftRl 
VL  •  VL*RRI 
ML  •  WL*RR1 

CALL  VLIN{RP,1.0E*05.RP, 0.0, 0.01 
IF(  CLDFSl  .EO-  0.0  )  GO  TO  21 

GOT  HERE  FOR  CLOUDS,  DAY  OR  NIGHT  •»••*♦•»*•*»••••♦*♦»*«•»•*** 
FOR  POINT  C,  SET  LATITUDE  AND  LONGITUDE  IN  POSITN  COP*«N  AND 
ALSO  GET  EARTH-CENTERED  CARTES1A.N  COORDINATES. 

IF  POINT  V  IS  AT  12-KH  ALTITUDE.  POINT  C  IS  AT  POINT  V. 

C12LAT  .  OETLAT  $  C12L0H  *  DETLON 

RC(1)  -  RVfl)  S  fiC(2)  *  RV(?)  1  RC(3)  •  ftV(3y 

1F(  OETALT  .£0.  C12ALT  )  GO  TO  21 

**•  GOT  HERE  FOR  aOUDS,  DAY  OR  NIGHT,  2KM(l,jeAND)  .GT.  12.0  **** 
CALL  AfiA6E0(0AlTC«.P'D2-0ETLAT. DETLON. A21.ALPHAC.CALTCM.CCLAT. 

1  C12L0N) 

C12LAT  .  P102  -  CCLAT 

CALL  6£QXYZ(C12ALT,C12LAT  C12L0N.RC( 1  ).RC(2).RC(3) ) 

call  VLlN(RC.1.0£*OS.RC.O.O.O.Oy 

CONTINUE 

SET  FILPOS  FOR  CALL  TO  TRANS. 

FILPOS  plays  no  role  if  TRNSOPT  .EQ.  true  and  (AS  SHOULD  BE 
THE  CASE)  ONE  USES  THE  SANE  SPECTRAL  LISTS  AS  ARE  USED  BY 
TRANSB  IN  preparing  TAP0T«LTXTE.  HOWEVER. IF  TRNSOPT  .EO. 
FALSE,  FILPOS  IS  USED  TO  ACHIEVE  NECESSARY  REWINDS  OF  TAPOT 
AND  AVOID  UNNECESSARY  REWINDS. 

FILPOS  -  1.0E*0A 

START  LOOP  OVER  WAVENUMBERS. 

NWAVEJ  •  NWAVE(J8AN0) 

DO  58  L»1,NWAVEJ 
LLP  •  L 

THE  VARIABLES  IJKL  ANO  IKMJKL,  NOT  USED  IN  THE  GRC  VERSlOH, 

ARE  USED  In  THE  SAI  VERSION  TO  FACILITATE  PRINT  STATE>CNTS 
IJKL  •  1  ♦  J  ♦  K  *  L 
IKHJKL  *  !KN  *  J  ♦  F  +  L 

ZLAN  •  1.0E»04/WW(L) 

WDL  •  WW(L)  -  0.5»I)U{Ll 
WOH  •  WW(L)  *  0.5*OW(L. 

CALL  S’JRRAD'Z.MSN.OD.STCLRX.IIP.JJP.KXP.LLP.ZLAN.O  .RAD.UPS.UPPS. 

S  UCS.UPCSI 

NOW  HAVE  AT  POINT  P  OH  THE  EARTH'S  SIRE  ACE  THE  EKlTTfO 
RADIAhCE  RAT  I)  AND  ilF  IDAY.;  AHC  I0AY7.1)  fHE  lUNAHENUATEO' 
REYLEfTE-;  RADIANCE  OF  SOLA.C  RADIATION  RA0(2)  AN'l  THE  PATH 
PARAMETERS  UPSIIT.N.l)  AND  UPPSdT.N.l)  FOR  Th:  iHrOi'ING  SOLAR 
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RA>.  also  H'tVE  AtROSOL  TRAHSMITTAnCE  (TAS''(LM  THROLW  A'  =  V1L 
comm  FOR  PATH  FROT  5  TO  P.  WHICH  HILL  BE  USED  LATfR.  ALSO 
HAVE  AT  POIFIT  c  THE  PATH  RASAHETERS  UCS(1T,a1  AND  UPCSMT.N' 
FOR  the  IACOHIHG  SOLAR  RAT  AH5  THE  AEROSOL  TRANS“-ITTAHCE 
(TASCILll  Tr«)OlfGM  AIRSOL  CO<^*t  FOR  PATH  S  TO  C,  ALSO  USED 

later,  the  path  parameters  are  computed  chlt  FOR  L-1,  Birr 
TASPiO  and  TASCIl;  are  COMPUTED  FO®  L-l.RHAVEJ.  HE  WILL  SOON 
GET  SUM  OF  ri'  ATTENUATED  RADIANCE  EMITTED  FROM  SURFACE  AND 
(?'  ATTENUATE?  ATMOSPHERIC  EMISSION  BEthE''N  POINTS  V  AND  P. 
TE>«KrfiARILT  USE  UPfiAO(K,L)  FOR  THIS  SLP*  WHICH  IS  INDEPENDENT 
OF  AIIMUTH. 

IF(  K  .GT.  1  )  60  TO  Xi 

NEED  call  TRNSCO  only  ON  FIPST  WAVENUMBER  BECAUSE  TRNSCO 
INTERNALLY  LOOPS  OVER  THE  HAVENIACER  LIST. 

IF(  L  .GT.  1  )  GO  TO  27 

*•*  GOT  here  for  DAT  OR  MGHT.  REGARDLESS  Of  CLOUDS  ****••»••**♦«* 
F(»  SOME  applications  IT  TS  DESIRABLE  TO  HAVE  SUBROUTINE 
UPWELL  RESULTS  CORRESPONDING  TO  2rM»c.O.  EVEN  THOUGH  THE 
ROUTINE  WAS  NOT  ORIGINALLY  DESIGNED  TO  BE  CALLED  WITH 
TO  CIRCUMVENT  THIS  DIFFICULTY,  HE  DEVELOP  A  PSEUDO  7ER0- 
ALTITUDE  algorithm  which  exploits  the  FEATURE  OF  SUBROUTINE 
STEP  WHEREIN  IT  DOES  MOT  COMPUTE  PATH  ELEMENTS  LESS  THAN  10 
METERS  IN  length.  THUS.  IF  THE  TOTAL  PATH  IS  LESS  THAN  10 
METERS.  THEN  SUBROUTINE  STEP  SETS  NC  TO  ZERO.  WE  DETECT  SUCH 
A  CONOITION  BY  SETTING  A  NEW  VARIABLE  NCNC  EQUAL  TO  HC  AFTER 
the  DOiJBLE  CALL  TO  SUEROlfTINE  STEPS  IN  SUBROUTINE  TT  NSCO  AND 
CARRYING  NCNC  TO  UPWELL  VIA  QMCNC  CWtON  f KNOWN  ONLY  tq  TRNSCO 
AND  UPWELL  1,  HE  MUST  ALSO  RECOGNIZE  THAT  SURROITINE  ATTWAD 
NORMALLY  PERFORMS  TWO  OPERATIONS  FOR  (NC.GT.ll  lAlJCH  ARE  HO'^ 
PERFORMED  FOR  {NC.LT.2),  THESE  OPERAT.D*'$  ARE  (11  REWINPING 
LTmte  and  (2)  ZEROING  THE  SECOND  HALVES  OF  the  U  AND  UP 
ARRAYS.  THUS.  fOR  (NC.EO.O).  HE  WANT  TO  (AND  00'  PERFORM 
THESE  TWO  OPERATIONS  HERE  IN  UPWELL.  SUBROUTINE  TRNSCO,  FOR 
(HC.LT.2\,  HILL  RETIRn  ZERO  FOR  THE  AIR-PATH  RADIANCE 
(BKGND  SKHBI))  AND  UNITY  FOR  THE  AIR-PATh  TRANSMITTANCE 
fTRANS  BKNBI)'.  THESE  VALUES  ARE  PRECISELY  THE  VALUES 
appropriate  for  the  altitude  EOUALLING  ZER^,  valid  of  COl'RSE 
FOf  ALL  NADIRS  AND  AZI»R)THS.  THUS,  THE  PSEUDO  ZERO-ALTIT'.>Df 
algorithm  need  be  exercised  only  for  the  FIRS’  NADIR  AND  THE 
FIRS’  azimuth,  to  PROCEE?  with  THF  PSEIW  ZERO-ALTITUpE 
algorithm,  we  SELECT  AN  ALTIT'JOE  ZKM  LESS  THAN  10  METERS,  SAv 
ONE  METER  -  0.001  KM,  UE  ALSO  PRETEN''.  THAT  THE  PATH  lEMG’M 
NEVER  EXCEEDS  10  METERS,  REGARDLESS  OF  THE  NADIR  ANGLE, 
PROVIDED  IT  OID  NOT  DC  SO  FOR  THC  FIRST  NADIR,  THUS.  HE 
DECREE  that  TRNSCO  SHALL  NOT  BE  CALLED  FOR  {O.GT.ll  IF  THE 
PATH  length  was  less  THAN  10  METERS  FOR  J'l, 

1F(  J  .GT,  11  GO  TC  ?3 

following  call  to  TRNSCO  OCCIAIS  FOR  T.GE.l.  J-K-L»l. 

TRNSCO'S  ARGaMEN’-LIS’  DISTANCES  MU5’  BE  IN  CM. 

CALL  TRNSCO.'  RV,  RP,  RP.  LB'NT.  RADSW  ' 

!Ef  NCNC  .GT.  1  '  GO  TO  25 

SINCE  WE  ARE  SEE'.ING  RESUL’S  FOR  ZKM-9.0,  PERFORM  tmE  Tvf' 

ABOVE -DESCRIBED  OPERATIONS  NORMALLY  PERFORMED  BY  SUBRn.f^INE 

ATWAO. 


UPWELL 

615 

opwel; 

61F 

UPHELl 

61'’ 

UP well 

6:s 

UPWELL 

61R 

UPHELL 

620 

UPWELL 

621 

UPWELL 

62? 

UPWELL 

F?3 

UPWELL 

624 

UPWELL 

625 

UPWELL 

625 

UPWELL 

627 

UPWELL 

62? 

UPWELL 

620 

UPWELL 

6  JO 

UPHELL 

6J1 

UPWELL 

63? 

UPWELL 

633 

UPHELL 

634 

UPWELL 

635 

UPHELL 

636 

UPWELL 

637 

UPHELL 

638 

UPWELL 

63y 

UPWELL 

64? 

UPHELL 

641 

UPWELL 

64? 

UPWELL 

64  3 

ItPRELL 

644 

URWELL 

645 

UPWELL 

546 

UPHELL 

647 

upwell 

64.R 

upwell 

640 

UP well 

65C 

UNWELL 

651 

UPwT'  L 

662 

UPWELL 

667 

UPWELL 

654 

L'pWElI. 

€55 

L!PkELL 

656 

UPWELL 

65' 

UPWELL 

655 

UPHELL 

659 

UPWt.L 

660 

UPWELL 

66! 

UPWE.L 

66? 

L'PHELL 

663 

UPWELL 

664 

UPWELL 

665 

L'pwELL 

66F 

L'PWELL 

66’ 

UPWELL 

66? 

UPWELL 

669 

UP-'LL 

B’O 

UPWELL 

6". 

»  REMIHO  LTKTt 

CALL  MIT  (  -100,  0.,  Ufl.l,?)  ) 

CALL  MIT  (  -100,  0.,  UPd.l,?)  ) 
eO  TO  ?5 

?3  1F(  NCAC  .GT.  1  )  GO  TO  ?A 
60  TO  22 

CC  FOLLOWING  CAL-  TO  TANSCO  OCCl**:  FOR  I.6E.2.  J.GE.2,  K*L-1. 

CC  TRNSCO’S  argument-list  DISTANCES  MUST  BF  IN  CM. 

2*  CALL  TRnSCO(  RV.  RP,  RP,  LBINT.  RAOSN  ] 

25  continue 

CC  ME  ALSO  NEED  TO  PRESERVE  PATH  PARAWTERS  FOR  PATH  P  TO  V  IN 

CC  ARRAYS  UPV  AMO  UPPV. 

CALL  MIT  (  100,  U  (1,1,2),  U  PV) 

CALL  XM;T  (  100,  0P(1.1.2).  UPPV) 

*ITE(6,10?S) 

1025  format  (1H0,45<,41H*  •  •  PATH  PARAMETERS.  POINT  P  TO  V  •  •  •/45X,» 
S(FROM  SUBROUTINE  UPWEL'  ,  FORMATS  1025.1027)*/2X.*TEMPERATuPE/SPECI 
SES.  ((U  PV(M.N),K.1,NSP£CS),M.1.2)»> 

HIITE(6.1026)  ((M.  (0  PV(M.N) .M-l.BSPECS)).M-l,2) 

1026  FORMAT  (2X,I3,1P10E12.4) 

WITE(8,1027) 

1027  format  (1H0.1X.*TEMPERAT1*E/SP£CIES.  ((UPPV(M.N),N-1.NSPECS).M-1 
S,2)*) 

»ITE(6.102S)  {(M,  (UPPV(M,N).H-1,RSPECS)),M*1,2) 

FOR  PATH  P  TO  V.  PRESERVE  TAPV(C).  TT?V(L),  «*0  A£PV{L) 
(L-1,NHAVEJ)  MHICH  ARE  DERIVED  FROM  OATASET-BI .  SEE 
SUBROUTINES  TRNSCO  AND  ATTtlAO  FOR  COMMENTS  REGARDING  TEWORART 
USE  OF  HORD-B  OF  OATASET-BI  FOR  AEROSOL  TRANSMITTA.SCE. 

LX  •  0 
LINT  .  LBINT 

26  CALL  PREV  (  LINT.NBI  ) 

IF(  NB!  .£0.  0  )  GO  TO  2/ 

LX  •  LX  ♦  1 

IF(  Ll  .GT.  10  )  GO  TO  27 
TTPV(LX)  •  0(H3I««} 

AEPVdXI  .  Q(NBI*4)/0M(IX) 

Q(N8I+4)  •  0. 

TAPV(LX)  •  Q(NB1*7) 
lQ(NBl-^7)  •  0 
GO  TO  26 
■>7  CONTINUE 

the  NEXT  STATEFCNT  PROVIDES  THE  ABOVt-*€NT!0«ED  SUM 
(TEMPORARILY  CALLED  UPRAD(K,l))  OF  (I)  EARTH'S  SURFACE 
radiance  RAO(l)  Ml"_TIPLIED  BY  THE  TOTAL  TRAMSMIHANCE  TTPVIL) 
BETMEEN  »0INT5  P  AMO  V  JWO  (2T  THE  ATtCSPHERIC  EMISSION 
A£PV(L)  BETMEEN  POINTS  V  AND  P.  THE  00-28  LOOP  KECOGMUES 
THIS  SUM  IS  AZIMUTHALLY  INDEPENDENT. 

UPRAO(K,L)  ■  RAD(1)«TT?V(L)  ♦  AFPV(L' 

IF(  NAZI  .EO.  1  )  GO  TO  29 
00  28  KXX.2,MAII 
UPRAD(KKK.L)  •  UPRAD(1,L) 

28  CWtTlNUE 

29  CONTINUE 

IF(  IJKL  .EQ.  4  )  4IITE(6,100) 

100  FORMAT  (1H1,44X,43H*  •  *  O’TPUT  FROM  SUBROUTINE  UPWELL  •  * 


UPWEIL 

672 

UPWELL 

67.1 

UPWELL 

674 

UPWELL 

675 

IPDffLL 

676 

UPWELL 

677 

IWffLL 

678 

UPWELL 

679 

UPWELL 

680 

UPWELL 

o31 

UPWELL 

682 

UPWELL 

683 

UPWELL 

684 

UPWELL 

685 

UPWELL 

686 

upwai. 

687 

UPWELL 

698 

UPWELL 

689 

UPWELL 

690 

UPWELL 

691 

UPWELL 

692 

UPWELL 

693 

UP«LL 

694 

UPWELL 

69S 

UPWELL 

696 

UPWELL 

697 

UPWELL 

698 

UPWELL 

699 

UPWELt 

700 

UPWELL 

701 

UPWELL 

702 

UPWELL 

703 

UPWELL 

704 

UPWELL 

705 

UPWELL 

706 

UPWELL 

707 

UPWELL 

708 

UPWELL 

709 

UPWELL 

710 

UPWELL 

711 

UPWELL 

712 

UPWELL 

713 

UPWELL 

714 

UPWELL 

715 

UPWELL 

716 

UPWELL 

717 

UPWELL 

718 

UPWELL 

719 

UPWELL 

720 

UPWELL 

721 

UPWEIL 

722 

UPWELL 

723 

UPWELL 

724 

UPWELL 

725 

UPWELL 

726 

UPWELL 

727 

UPWELL 

728 

IF(  IJKL  .to.  4  )  MRITE(6.101) 

UPWELL 

725 

101 

FORMAT  (1H0.1X.107H  I  J  K  L  WDL  HOH  Z 

UPWELL 

730 

JLAM  RAU(l)  TTPV  AEPV  TAPV  ) 

UPWELL 

731 

*iTE(6.102)  l.J,K.L.WOL.WDH,ZLAM.RAO(l).nPV{L),AEPV(L).TAPV[L) 

UPWELL 

73? 

10?  FORMAT  (2X,4I3,1P7(E14.5)1 

UPWELL 

733 

30 

CONTINUE 

UPWELL 

734 

CCCC 

UPWELL 

735 

CC 

UPRAO  IS  OUR  ANSWER  IF  I0AYV=0  AND  IF  NO  CLOUDS  ARE  INCLUDED. 

UPWELL 

736 

IF(  CLDFGl  .EQ.  0.0  )  GO  TO  35 

UPWELL 

737 

CCC 

UPWELL 

738 

CC 

***  GOT  HERE  FOR  CLOUDS.  DAY  ^  NIGHT  »**•****»*****•*•«•*«***« 

UPWELL 

739 

CC 

PREPARE  TO  CALL  NCM  SUBROUTINE  CLDWT  TO  GET  THE  NCPSET-MEMBER 

UPWELL 

740 

CC 

ARRAYS  FOR  WEIGHTS  CORRESPONDING  TO  THE 

UPWELL 

741 

CC 

VARIOUS  CLOUD  CONFIGURATIONS  OR  SETS  (WT),  AND.  AT  12-KM 

UPWELL 

742 

CC 

ALTITUDE  (POINT  C)  ALONG  THE  PATH  FROM  POIfIT  P  TO  POINT  V.  THE 

UPWELL 

743 

CC 

TOP-CLOUD  emission  RADIANCES  (EMISS)  AND  (IF  IDAYV-1)  THE 

UPWELL 

744 

CC 

TRANSFER  COEFFICIENTS  (TRANS)  FOR  THE  TOP-CLOUD  REFLECTION 

UPWELL 

745 

CC 

OF  THE  SOLAR  RADIATION. 

UPWELL 

746 

CC 

HT(I),  FOR  ANY  OF  THE  10  LOCATION- SEASON  AVERAGED  STATISTICAL 

UPWELL 

747 

CC 

CLOUD  MODELS  (KMODEL*1,10).  IS  THE  PROBABILITY  THAT  (A)  THE 

UPWELL 

748 

CC 

CLOUD-CONFIGUPATION  SET  INDICATED  BY  THE  INDEX  I  OCCURS  AND 

UPWELL 

749 

CC 

(B)  THE  DETECTOR  LOS  AT  ZENITH  ANGLE  CHI  INTERSECTS  THE  CLOUD- 

UPWELL 

750 

CC 

CONFIGURATION  SET.  THE  PROBABILITY  OF  THE  DETECTOR'S  LOS 

UPWELL 

751 

CC 

INTERSECTING  CLOUDS  IS  SUM(WT(1))  ( I-l. IDX-l ) . 

UPWELL 

752 

CC 

UPWELL 

753 

CC 

BEFORE  PROCEEDING  TO  CALL  SUBROUTINE  CLDWT,  WE  COMPUTE  THE  AIR 

UPWELL 

754 

CC 

EMISSION  BETWEEN  POINTS  C  AND  V  (AfiCVA(lKM, J,L)) 

UPWELL 

755 

CC 

AND  THE  AIR  TRANSMITTANCE  (BOTH  MOLECULAR  AND  AEROSOL)  FROM 

UPWELL 

756 

CC 

POINT  C  TO  POINT  V.  THE  TOTAL  TRANSMITTANCE  IS  HCV  AND  THE 

UPWEL*. 

757 

CC 

AEROSOL  TRANSMIHANCE  IS  TACV.  ALL  OF  THESE  QUANTITIES  ARE 

UPWELL 

758 

CC 

INDEPENDENT  OF  AZIMUTH,  SO  THEY  NEED  BE  COMPUTED  ONLY  FOR  X-1. 

UPWELL 

759 

IF(  ZKM(I.JBAND)  .OT,  12.0  )  60  TO  31 

UPWELL 

760 

tF(  (  J  .6T.  1  )  .OR.  (  K  .GT.  1  )  )  GO  TO  33 

UPWELL 

761 

A£CV(L)  •  0.0 

UPWELL 

762 

TTCV(L)  ■  1.0 

UPWELL 

763 

TACV(L)  •  1.0 

UPWELL 

764 

IF(  L  .GT.  1  )  GO  TO  33 

UPWELL 

765 

CC 

ZERO  ARRAYS  PRESERVING  PATH  PARAMETERS  TOR  PATH  V  TO  C.  MEED 

UPWELL 

766 

CC 

BE  DONE  ONLY  ONCE  FOR  ZKH(1,JBAND)  •  12.0  . 

UPWELL 

767 

CALL  XMIT  (-100.  0.,  U  CV  ) 

UPWELL 

768 

CALL  XMr  (-100,  0.,  UPCV  ) 

UPWELL 

769 

GO  TO  33 

UPWELL 

770 

3i 

CONTINUE 

UPWELL 

771 

IF{  (  K  .GT.  1  )  .OR.  (  L  .GT.  1  )  )  SO  TO  33 

UPWELL 

772 

CC 

following  call  TO  TRNSCO  OCCURS  FOR  CLDFLG.EQ.l, 

UPWELL 

773 

CC 

ZKM(I,JBAN0).GT.12.O,  J.GE.l.  K*L*1  . 

UPWELL 

774 

CALL  TRNSCO(  RV,  RC,  RC,  LBINT.  RADSH  ) 

UPWELL 

775 

CC 

WE  ALSO  NEED  TO  PRESERVE  PATH  PARAMETERS  FOR  PATH  C  TO  V  IN 

UPWELL 

776 

CC 

ARRAYS  UCV  AND  UPCV. 

UPWELL 

777 

CALL  XMIT  (  100,  U  (1.1.?),  U  CV) 

UPWE! 

778 

CALL  XMIT  (  100.  UP( 1,1.2).  UPCV) 

UPWELL 

779 

HR1TE(6.1031) 

UPWELL 

780 

1031 

FORMAT  (1H0,4SX,41H*  *  »  PATH  PARAMETERS,  POINT  C  TO  V  •  *  •/47X,* 

UPWELL 

781 

$(FROH  SUBROUTINE  UPWELL,  FORMATS  1031,1033)*/2X ,*TEMPERATURE/SPECI 

UPWELL 

782 

lES.  ({U  CY(M,N),N»1.NSPECS).M.=1,2)*) 

UPWELL 

783 

HRITE(6,1026)  ((M.  (U  CV{M,H).N.1.NSPECS)).M-1.2) 

UPWELL 

784 

WRITE(6,1033) 

UPWELL 

785 

325 


1033 

FORMAT  (lHC.lX,*TEMPf'.ATCWE,/sPEClE5.  ((UPCV(M.M),N-1.HSPECS)  ,M-1 

UPWELL 

786 

UPWELL 

787 

WRITE(6,1T’6)  ({M,  ('JFCV(M,N).t(.l,NSPECS)).M.l.Z) 

UPWELL 

788 

CC 

UPWELL 

789 

CC 

FOR  PATH  C  TO  V.  PRESERVE  TACV(L).  nCV(L).  AMD  AECV(t.) 

UPWELL 

79n 

CC 

(L-l.NWAVEJ)  WHICH  ARE  DERIVED  FROM  OATASET-BI.  SEE 

UPWELL 

791 

CC 

SUBROUTINES  TRNSCO  AND  ATMRAD  FOR  COMMENTS  RESARDINd  TEMPORARY 

UPWELL 

792 

CC 

USE  OF  WORD-a  OF  DATASET-BI  FOR  AEROSOL  TRANSMITTANCE. 

UPWELL 

793 

LX  *  0 

UPWELL 

794 

LINT  •  L8INT 

UPWELL 

795 

32 

CALL  PREV  (  LINT.HBl  ) 

UPWELL 

796 

1F(  HBI  .EQ.  0  )  GO  TO  33 

UPWELL 

797 

LX  -  LX  +  1 

UPWELL 

798 

IF(  LX  .GT.  10  )  GO  TO  33 

UPWELL 

799 

TTCV(LX)  •  Q(NBI+€) 

UPWELL 

BOO 

AECV(LX)  •  Q(NBI*4)/0H(LX) 

UPWELL 

801 

Q(NBl+4)  «  0. 

UPWELL 

802 

TACV(I.X)  .  Q(NB!+7) 

UPWELL 

803 

I0(NBI+7)  .  0 

UPWELL 

804 

QD  TO  32 

UPWELL 

805 

33 

CONTINUE 

UPWELL 

806 

CC 

UPWELL 

807 

IF(  IKMJKL  .EQ.  4  )  WR1TE(6,103) 

UPWELL 

808 

103 

FORMAT  (IHO.IX,*  1  J  K  L  ZLAM 

UPWELL 

809 

t  nCV  AECV  TACV*) 

UPWELL 

810 

URITE(6,!04)  I , J.K ,L ,ZLAM,TTCV(L) ,AECV(L) .TACV( L) 

UPWELL 

811 

104 

FORMAT  (2X,4I3.28X.1PE14.5,14X.3(E14.S)) 

UPWELL 

812 

CC 

UPWELL 

813 

IF(  K  .GT.  1  )  GO  TO  34 

UPWELL 

814 

CC 

AECV(L)  IS  'HDEPENOENT  OF  AZIMUTH.  SO  HE  PRESERVE  IT  WITH  A 

UPWELL 

815 

CC 

NOTATION  TO  DENOTE  IT  IS  THE  AZIMUTHAL  AVERAGE  FOR  THE 

UPWELL 

8)6 

CC 

CURRENT  VALUES  OF  IRM,  J,  AND  L. 

UPWELL 

817 

ARCVA(IKM,0,L)  •  AECV(L) 

UPWELL 

B18 

34 

CONTINUE 

UPWELL 

819 

CC 

UPWELL 

8?n 

CC 

IN  ORDER  THAT  SUBROUTINE  TRANSF  IN  THE  NCM,  CALLED  BY 

UPWELL 

821 

CC 

SUBROUTINE  CLOWT,  HILL  KNOW  WHETHER  OR  NOT  THE  SUN  IS  ABOVE  OR 

UPWELL 

822 

CC 

BELOW  THE  HORIZON,  SET  ITFLAG  IN  THE  FLAGS  CO^fCN  (USED  IN  THE 

UPWELL 

823 

CC 

NCM  AND  INCLUDED  HERE  IN  SUBROUTINE  UPWELL). 

UPWELL 

8?4 

ITFLAG  •  0 

UPWELL 

825 

IF(  IDAYV  .EQ.  1  )  ITFLAG  •  1 

UPWELL 

826 

CALL  LLDWT(ZLAM,CHID) 

UPWELL 

827 

CC 

SUBROUTINE  CLDWT  HAS  PROVIOED,  THROUGH  COMMON  CLDWT,  THE 

UPWELL 

828 

CC 

ARRAYS  HT.  TRANS.  AND  EMISS.  OF  LENGTHS  lOX,  IDX*1,  AND  IDX-1, 

UPWELL 

829 

CC 

RESPECTIVELY.  IDX  EQUALS  160  FOR  A  FULL  SET  OF  159  CONFIG¬ 

UPWELL 

830 

CC 

URATIONS  AND  IS  LESS  FOR  A  RESTRICTED  SET. 

UPWELL 

831 

CC 

UPWELL 

832 

CC 

TO  FACILITATE  COMPUTING  THE  RADIANCE  DISTRIBUTION  FUNCTION 

UPWELL 

833 

CC 

RESULTING  FROM  THE  STATISTICAL  TREATMENT  OF  NATURAL  CLOUDS. 

UPWELL 

834 

CC 

START  FORMING  A  NEW  RADIANCE  DISTRIBUTION  FUNCT!ON(UPRADC ) 

UPWELL 

835 

CC 

AND  CORRESPONDING  WEIGHTS(HTC).  IF  NCOSET  IS  THE  NUMBER  OF 

UPWELL 

836 

CC 

STATISTICAL  CLOUD  SETS,  WITH  A  MAXIMUM  OF  159,  FOR  XMODEL- 
1,10,  THEN  THE  LENGTH  (II)  OF  THE  ARRAYS  UPRADC  AND  HTC  WILL 

UPWELL 

837 

CC 

UPWELL 

838 

CC 

BE  Il-NCOSET-H  IF  lOAYV'O  OR  II-NCD5ET+?  IF  lOAYV-1. 

UPWELL 

839 

CC 

(THIS  STATEMENT  DOES  NOT  INCLUDE  THE  ZERO-VALUE  MEMBERS  ADDED 

UPWELL 

840 

CC 

(AFTER  STATEMENT  LABEL  55)  FOR  INTERPOLATION  PURPOSES.) 

UPWELL 

84] 

CC 

UPWELL 

84? 

326 


cc 

TO  FACILITATE  ASSESSING  THE  RELATIVE  IMPORTANCE  OF  EMISSION 

UPWELL 

843 

cc 

AND  reflection  CONTRIBUTIONS,  PRESERVE  THE  EMISSION  COMPONENT 

UPWELL 

844 

cc 

OF  UPRADC  IN  ANOTHER  ARRAY  (UPRDCl). 

UPWELL 

845 

NCOSET  •  IDX-1 

UPWELL 

84fi 

SUMWTC  •  0.0 

UPWELL 

847 

00  35  M=l, NCOSET 

UPWELL 

848 

cc 

MULTIPLY  THE  SPECTRAL  RADIANCE  FROM  THE  NCM,  EXPRESSED  IN 

UPWELL 

849 

cc 

UNITS  OF  MATTS  /  (KM»*2  SR  MICRON),  BY  1.0E-14*(ZLAM**2)  TO 

UPWELL 

860 

cc 

OBTAIN  WATTS  /  (CM**2  SR  CM-I). 

UPWELL 

851 

cc 

ALSO  INCLUDE  TRANSMITTANCE  BETWEEN  POINTS  C  AND  V. 

UPWELL 

85? 

UPRAOC(M)  •  (l.OE-14  •  ZLAH**?)  *  EMISS(M)  •  TrCV(L) 

UPWELL 

853 

UPRDCl(M)  *  UPRADC(M) 

UPWELL 

854 

wr:(M;  -  wt'm) 

UPWELL 

865 

SUMWTC  •  SUMWTC  +  WTC(M) 

UPWELL 

856 

35 

CONTINUE 

UPWELL 

857 

n  •  NC0SET41 

UPWELL 

858 

cc 

AT  this  POINT,  11  WILL  NORMALLY  BE  ISO. 

UPWELL 

859 

cc 

UPWELl. 

860 

cc 

NOW  USE  FACT  that  RADIANCE  AT  POINT  V  DUE  TO  AIR  EMISSION 

UPWELL 

861 

cc 

BETWEEN  POINTS  V  AND  P  CAN  BE  BROKEN  INTO  TWO  PORTIONS... 

UPWELL 

862 

cc 

AEPV(L)  =  AECV(L)  ♦  AEPC(L)*TTCV(L) 

UPWELL 

863 

cc 

THUS  AEPC(L)»TTCV{L)  •  AEPV(L)  -  AECV(l) 

UPWELL 

864 

cc 

HENCE  WE  NEED  TO  SUBTRACT  AECV(L)  FROM  UPRAD(K,L)  IN  ORDER  FOR 

UPWELL 

865 

cc 

UPRADC(Il)  TO  CONTAIN  THE  (ATTENUATED)  AIR  EMISSION  BETWEEN 

UPWELL 

866 

cc 

POINTS  P  AND  C. 

UPWELL 

867 

UPRADCdl)  •  UPRAD(K,L)  -  AECV(L) 

UPWEl L 

868 

UPROCl(II)  -  UPRADCdl) 

UPWELL 

859 

cc 

UPWELL 

870 

cc 

WE  HEED  THE  MEAN  PROBABILITY  OF  A  CLOUD-FREE  LOS  FROM 

UPWELL 

871 

cc 

POINT  P  TO  POINT  V  (AT  ZEN.'TH  ANGLE  CHI  CORRESPONDING  TO  NADIR 

UPWELL 

872 

cc 

ANGLE  BETA.  AS  NOTED  BEFORE,  THE  i>fi('RABlL ITY  OP  THE 

UPWELL 

873 

cc 

DETECTOR'S  LOS  INTERSECTING  CLOUDS  IS  SUM(WTd))  (I-1,1DX-1). 

UPWELL 

874 

cc 

HENCE,  WE  TAKE  (1 . -SUM{WT( I ) ))  AS  THE  DESIRED  PROBABILITY  OF  A 

UPWELL 

875 

cc 

CLOUD-FREE  LOS,  CFPV. 

UPWELL 

876 

CFPV  •  1.  -  SUMWTC 

UPWELL 

877 

WTC(II)  *  CFPV 

UPWELL 

878 

cc 

THIS  WTC  IS  THE  ONE  OBTAINING  FOR  NIGHT.  FOR  DAY,  WTC  IS 

UPWELL 

8‘’9 

cc 

RESET  ,'fTER  LOOP  00-52. 

UPWELL 

880 

ccc 

UPWELL 

881 

cc 

IF  lOAYY*!,  MUST  ADD  IN  CLOUO-REFLECTED  SOLAR  RADIATION, 

UPWELL 

88? 

cc 

AFTER  ADDING  IN  SURFACE -REFLECTED  SOLAR  RADIATION. 

UPWELL 

883 

cc 

*»*  GOT  here  for  CLOUDS,  DAY  OR  NIGHT  ♦•*••••»».»*•*••••••••*****» 

UPWELL 

884 

Iri  lOAYV.EQ.O  )  GO  TO  55 

UPWELL 

885 

ccc 

UPWELL 

886 

cc 

***  GOT  HERE  FOR  CLOUDS, DAY  ••»**********»«*******«*»*»*»»«*«»**4 

UPWELL 

887 

GO  TO  37 

UPWELL 

888 

ccc 

UPWELL 

889 

36 

CONTINUE 

UPWELL 

810 

cc 

*«  GOT  here  FOR  NO  CLOUDS,  DAY  OR  NIGHT  **»«♦»••*•••»•*»»**•»*«» 

UPWELL 

891 

cc 

IF  lOAYV^l,  MUST  ADD  IN  SURFACE-REFLECTED  SOLAR  RADIATION. 

UPWELL 

89? 

IF(  lOAYV.EO.O  )  GO  TO  58 

UPWELL 

893 

ccc 

UPWELL 

894 

37 

CONTINUE 

UPWELL 

895 

cc 

*•*  GOT  HERE  FOR  DAY,  WITH  OR  WITHOUT  CLOUDS  •♦*»*♦•*•**••••»»**** 

UPWELL 

896 

cc 

EARLIER,  subroutine  TRNSCO  CALLED  SUBROUTINE  PATH  FOR  THE  PATH 

UPWELL 

897 

cc 

FROM  V  TO  P  AND  WE  SAVED  THE  PATH  PARAMETERS  UnT,N,?)  AND  UP( 

UPWELL 

8R8 

cc 

IT.N,2)  as  UPV(IT,N)  AND  OPPV(IT.N).  NOW  ADD  PATH  PARAMETERS 

UPWELL 

899 

3Z7 


cc 

FOR  SEGMENTS  SP  AND  PV.  NEED  BE  DONE  ONLY  FOR  K*L*1,  BUT  THEY 

UPHELL 

900 

cc 

HJST  BE  SAVED  IN  USPV  AND  UPSPV  ARRAYS. 

UPHELL 

901 

1F(  K  .GT,  1  )  GO  TO  42 

UPHELL 

902 

1F(  L  ,GT.  1  )  GO  TO  41 

UPHELL 

903 

DO  40  HH=I,NSPECS 

UPHELL 

904 

DO  40  LL«1.2 

UPHELL 

905 

ccc 

UPHELL 

906 

cc 

ONLY  TWO  TEMPERATURES  (SINCE  SHELLS  LIMITS  THE  ATMOSPHERIC 

UPHELL 

907 

cc 

TEMPERATURE  TO  300  DEG  K)  ARE  NEEDED  FOR  THE  AMBIENT 

UPHELL 

908 

cc 

ATMOSPHERE.  BUT  NTEMP  MUST  BE  TO  10  AND  NOT  TO  2  TO  BE 

UPHELL 

909 

cc 

CONSISTENT  WITH  THE  DIMENSIONING  OF  THE  U  AND  UP  ARRAYS  IN 

UPHELL 

910 

cc 

SUBROUTINE  TRANS.  THE  FIRST  HALVES  OF  THE  U  AND  UP  ARRAYS 

UPHELL 

9’I 

cc 

HERE  ZEROED  IN  TRNSCO.  TRANS  (STATEMENT  LABELED  30)  HILL 

UPHELL 

912 

cc 

DETECT  THE  ZERO  VALUES  OF  U  AND  UP  FOR  TEMPERATURE-INDEXES  3 

UPHELL 

913 

cc 

THROUGH  10  AND  HASTE  LITTLE  TIME  IN  COMPUTING  THE 

UPHELL 

914 

cc 

TRANSMITTANCE  FOR  ZERO  VALUES  OF  THE  PATH  PARAMETERS. 

UPHELL 

915 

ccc 

UPHELL 

916 

U  SPV(LL.HN)  -  U  PV(LL.NN)  *  U  PS(LL.NN.l) 

UPHELL 

917 

UPSPV(LL.NN)  -  UPPV(LL.NN)  ♦  UPPS(LL,NN.l ) 

UPHELL 

918 

40 

CONTINUE 

UPHELL 

919 

HRITE(6,1040) 

UPHELL 

920 

1040  FORMAT  (1H0.42X,48H*  ♦  *  PATH  PARAMETERS.  SUN  TO  POINT  P  TO  V  •  • 

UPHELL 

921 

t*/45X.»(FROM  SUBROUTINE  UPHELL.  FORMATS  1040.1042)*/2X.*TEMPERATUR 

UPHELL 

922 

SE/SPECIES.  ((U  SPV(M.H).N-1,NSPECS),M-1,2)*) 

HRIT£(6.1026)  ((M.  (U  SPV(M.N),N*1,NSPECS)),M*1.2) 

UPHELL 

923 

UPHELL 

924 

HRITE(6,1042) 

UPHELL 

925 

104? 

FORMAT  (1H0,1X,*TEMPERATURE/SPECIES.  ((UPSPV(M,N),N-  .NSPECS).M= 

UPHELL 

926 

Jl.Z)*) 

UPHELL 

927 

HRITE(6,1026!  ((M,  (UPSPV(M,N),N»1,NSPECS) ),M-=1.2) 

UPHELL 

928 

41 

CONTINUE 

UPHELL 

929 

cccc 

UPHELL 

930 

cc 

ENTRY  TRANSl  IN  SUBROUTINE  TRANS  IS  PROVIDED  12/29/7B  TO 

UPHELL 

931 

cc 

AVOID  CONFLICT  IN  SUBROUTINE  UPHFLL  BETWEEN  THE  ARRAY  TRANS 

UPHELL 

932 

CC 

IN  COKWON  CLDVrr  AND  THE  CALL  TO  SUBROUTINE  TRANS. 

UPHELL 

933 

cc 

NOTE.. .HE  ARE  CALLING  SUBROUTINE  TRANS  WITH  THE  ARRAY* 

UPHELL 

934 

CC 

USPV(10,10)  AND  UPSPV(10,10)  HHICH  IS  SATISFACTORY  FOR 

UPHELL 

935 

CC 

SUBROUTINE  TRANS'  CURRENT  USE  OF  M  .  1  .  IN  GENERAL, 

UPHELL 

936 

cc 

SUBROUTINE  TRANS  EXPECTS  ARRAYS  U(1T,N.2)  AND  UP(IT,N,?)  WHEN 

UPHELL 

937 

cc 

BEING  called  WITH  M-l. 

UPHELL 

938 

CALL  TRANSK  NTEMP.  1,  USPV.  UPSPV,  FK,  WDL,  HDH,  TAU,  ABC, 

$  TMSPV(L),  TRN50PT.  FllPOS  ) 

UPHELL 

939 

UPHELL 

940 

cccc 

UPHELL 

941 

cc 

TRANS  HAS  RETURNED  THE  TOTAL  MOLECULAR  TRANSMITTANCE  TMSPV(L) 

UPHEH 

94? 

cc 

FOR  THE  TOTAL  PAIH  (SP*PV).  WITH  ACCOUNT  OF  NSPECS  SPECIES. 

UPHELL 

943 

cc 

UPHELL 

944 

cc 

GET  TOTAL  TRANSMITTANCE  BY  INCLUDING  AEROSOLS. 

UPHELL 

945 

cc 

USE  AEROSOL  TRANSMITTANCE  TASP(L)  FROM  SUBROUTINE  5URRAD  FOR 

UPHELL 

946 

cc 

PATH  SP  WITH  AEROSOL  TRANSMITTANCE  TAPV(L)  FROM  SUBROUTINE 

UPHELL 

947 

cc 

TRNSCO 'S  CALL  TO  SUBROUTINE  ATMRAD  FOR  PATH  PV  TO  GET  THE 

UPHELL 

948 

cc 

AEROSOL  TRANSMITTANCE  FOR  THE  TOTAL  PATH  SPy-(SP+PV). 

UPHELL 

949 

TTSPV(L)  -  TMSPV(L)  •  {TASP(L)  *  TAPVU)) 

UPHELL 

950 

cc 

NOW  HAVE  TOTAL  MOLECULAR  AND  AEROSOL  TRANSMIHANCE  FOR 

UPHELL 

951 

cc 

SURFACE-REFLECTED  SOLAR  RAY. 

UPHELL 

95? 

4? 

CONTINUE 

UPHELL 

953 

cc 

UPHELL 

954 

cc 

IN  FOLLOWING  EXPRESSION,  ONLY  RA0(2)  MAY  DEPEND  ON  AZIMUTH, 

UPHELL 

955 

cc 

WHICH  IT  HILL  FOR  NON-LAWFRTIAN  SURFACE  MATERIALS  (MSM.GT.l). 

UPHELL 

956 

328 
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Uf>RAD(K,L)  •  UPRAD(IC.L)  +  TTSPV(L)*(IAD(?) 

CC  HOW  HAVE  TOTAL  UPWELLING  RADtANCE  DIRECTED  FROM  POINT  P 

CC  TO  POINT  V  (WITHOUT  ANY  CLOUDS),  THE  FIRST  TERM  BEING  THE  SUM 

CC  OF  THE  ATTENUATED  GROUND-SURFACE  EMISSION  AND  AIR  EMISSION 

CC  BETWEEN  POINTS  P  AND  V  AND  THE  SECOND  TERM  BEING  THE 

CC  ATTENUATED  SURFACE-REFLECTED  SOLAR  RAY. 

IF(  IJKL  .EO.  A  )  WRITE(6.I0S) 

105  FORMAT  (IHO.IX,*  IJKL  ZLAM 

$  RAO(?)  TTSPV  TMSPV  TASP«) 

*ITE(6.106)  I,J,K,L,ZLAM,RAD(Z).TTSPV(L).TMSPV(L),TASP(L) 

106  FORMAT  (?1(,AI3,28X,1P5(E14.5)) 

IF(  CLDFGI.EQ.0.0  )  GO  TO  58 

CCC 

CC  ***  GOT  HERE  FOR  DAY,  WITH  CLOUDS  ******************************* 
CC  HE  MUST  CONVERT  THE  TRANSFER  COEFFICIENTS  TRANS  INTO 

CC  radiances  for  THE  CLOUO-REFLECTEP  SOLAR  RADIATION.  TO  DO  SO, 

CC  HE  HEED  THE  SOLAR  SPECTRAL  IRRADIANCE  E  (HATTS/(CM**?  CM-1)) 

CC  (NORMAL  TO  THE  PATH  TO  THE  SUM)  AT  THE  12-KM  ALTITUDE  POINT 

CC  ON  THE  V-TO-P  PATH.  HERE  HE  SHALL  USE  THE  VALUE.  SOLIRR(L)-E. 

CC  PREVIOUSLY  OBTAINED  BY  A  CALL  TO  SUBROUTINE  SOLRAD  EROM 

CC  SUBROUTINE  SURRAO  AND  AVAILABLE  TMtOUGH  SOlARP  COWON. 

CC 

CC  HE  also  INCLUDE  AIR  TRANSMinANCE  (TTSCV(L))  ABOVE  12-KM 

CC  ALTITUDE,  ALONG  THE  PATH  FROM  S  TO  C  TO  V.  TTSCV(L)  IS  GIVEN 

CC  BY  THE  PRODUCT  OF  THE  MOLECULAR  TRANSMITTANCE  (TMSCV(L))  AND 

CC  THE  AEROSOL  TRANSMITTANCE  (TASC(L)*TACV(L) ) , 

CC  TMSCV(L)  HILL  BE  COMPUTED  BY  SIBROUTINE  TRANS,  GIVEN  THE  PATH 

CC  PARAMETERS  USCV  AND  UPSCV.  FROM  TRNSCO’S  CALL  TO  PATH  ME  HAVE 

CC  THE  PATH  PARAMETERS  U(1T.N,2)  AND  UP(1T,N,2)  (WHICH  HE  SAVED 

CC  AS  UCVdT.N)  AND  UPCV(IT.N)  FOR  THE  PATH  FROM  POINT  V  TO  POINT 

CC  C.  THE  PATH  PARAMETERS  UCS(IT,N)  AND  UPCS(1T,N)  MERE  OBTAINED 

CC  HITH  THE  CALL  TO  SUBROUTINE  SURRAD. 

CC  ADO  THE  PATH  PARAMETERS  FOR  SEGMENTS  SC  AND  CV.  NEED  BE  DONE 

CC  ONLY  FOR  K*L-1.  BUT  THEY  MUST  BE  SAVED  IN  USCV  AND  UPSCV 

CC  ARRAYS. 

IF(  K  .GT.  1  )  GO  TO  50 

IF(  L  .GT.  1  )  GO  TO  45 

DO  44  NN'l.NSPECS 
DO  44  LL*1,2 

U  SCV(LL,NN)  •  U  CV(LL,NN)  ♦  U  CS(Ll.NN) 

UPSCV(LL,NN)  •  UPCV(LL.NN)  ♦  UPCS(LL.NN) 

44  CONTINUE 
URITC(6,1044) 

1044  FORMAT  (1H0,42« ,48H*  •  •  PATH  PARAMETERS.  SUN  TO  POINT  C  TO  V  •  * 
S*/44X.*(FR0M  SUBROUTINE  UPHELL,  FORMATS  1044,1046)»/2X,*TEMPERATUR 
SE/SPECIES.  ((U  SCV(M.H),N-1.NSPECS),M.1.2)*) 

MHtTE(6,n?6)  ((M,  (U  SCV(M,N),N*1,NSPECS)),M*1,?) 

HRITE(6,1046) 

1046  FORMAT  (IHO, IX, •TEMPERATURE/SPECIES.  ((UPSCV(M.N).N-1,NSPECS) .M- 

«,?)*) 

HRITE(6,10Z6)  ((M,  (UPSCV(M,N),H-1,NSPECS)),M.1.2) 

45  CONTINUE 

CC  NOTE... HE  ARE  CALLING  SUBROUTINE  TRANS  HITH  THE  ARRAYS 

CC  USCV(IO.IO)  AND  UPSCV(IO.IO)  HHICH  IS  SATISFACTORY  FOR 

CC  SUBROUTINE  TRANS'  CURRENT  USE  OF  M  •  1  .  IN  GENERAL, 

CC  SUBROUTINE  TRANS  EXPECTS  ARRAYS  U(IT,N.Z)  AND  UP(n,N,Z)  WHEN 

CC  BEING  CALLED  HITH  M*l. 


UPWELL 
UP WELL 
UPWELL 
UPWELL 
UPHELL 
UPWELL 
UPWELL 
UPWELL 
UPWELL 
UPWELL 
UPHELL 
UPWELL 
UPWELL 
UPWELL 
UPWELL 
UPHELL 
UPWELL 
UPHELL 
UPWELL 
UPWELL 
UPHELL 
UPHELL 
UPHELL 
UPWELL 
UPHELL 
UPWELL 
UPHELL 
UPHELL 
UPWELL 
UPHELL 
UPHELL 
UPWELL 
UPHELL 
UPHELL 
UPHELL 
UPWELL 
UPHELL 
UPHELL 
UPHELL 
UPHELL 
UPHELL 
UPHELL 
UPHELL 
UPHELL 
UPHELL 
UPWELL 
UPHELL 
UPHELL 
UPHELL 
UPHELL 
UPHELL 
UPHELL 
UPHELL 
UPHELL 
UPHELL 
UPHELL 
UPHELL 
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aiifcaM 


957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 
1013 


I 


t 


■i 

V  i 

i  J 


rK 


[  V 


! 


i 


CALL  TRANSK  NTEMP,  1.  USCV,  UPSCV.  FK.  WOL.  WOH,  TAU.  ABC. 

1  TMSCVCL).  TRNSOPT,  FILPOS  ) 

CC  TRANS  HAS  RETURNED  THE  TOTAL  MOLECULAR  TRANSMITTANCE  TMSCV(L) 

CC  FOR  THE  TOTAL  PATH  (SC*CV).  USE  AEROSOL  TRANSMITTANCE  TASCtL) 

CC  FROM  SUBROUTINE  SURRAO  FOR  PATH  SC  WITH  AEROSOL  TRANSMITTANCE 

CC  TACV(L)  FROM  TRNSCO'S  CALL  TO  SUBROUTINE  ATTHAD  FOR  PATH  CV  TO 

CC  GET  THE  AEROSOL  TRANSMinPMCE  FOR  THE  TOTAL  PATH  SCV-(SC+CV). 

TTSCV[L)  •  TMSCVIL)  *  ( TASC(L )»TACV(L) ) 

CC  NOW  HAVE  TOTAL  MOLECULAR  AND  AEROSOL  TRANSMITTANCE  FOR  CLOUO- 

CC  REFLECTED  SOLAR  RAY. 

IF(  IKMJKL  .EO.  4  )  WRITE{6.107) 

107  FORMAT  (IHO.IX,*  I  J  K  L  ZLAH 

I  TTSCV  TMSCV  TASC*) 

WITE(6,104)  l.J.K.L.ZLAM.nSCV(L).TMSCV(L).TASC(L) 

CCC 

50  CONTINUE 

CC  NOW  GET  A  CONTRIBUTION  TO  THE  TOTAL  UPUELLING  RADIANCE 

CC  DIRECTED  FROM  POINT  C  TO  POINT  V.  THE  FIRST  TERM  BEING  THE 

CC  CLOUD-SURFACE  EMISSION  ATTENUATED  BETWEEN  POINTS  C  AND  V  AND 

CC  THE  SECOND  TERM  BEING  THE  ATTENUATED  aOUO-REFLECTED  SOLAR 

CC  RAY. 

DO  5?  M-l.NCOSET 

UPRAOC(M)  >  UPRADCIM)  +  SOLIRR(L)  •  TRANS(M)  •  TTSCV(L) 

52  CONTINUE 


CC 

CC 

CC 

CC 

CC 

CC 

CC 


CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 


AT  THIS  POINT,  II  WILL  NORMALLY  BE  160  . 

SINCE  WE  ARF  ABOUT  TO  INCLUOF  THE  TWO-LEG  CFLOS.  WE  MUST 
MULTIPLY  THE  PROBABILITY  OF  THE  (NIGHTTIME)  ONE-LEG  CFLOS  BY 
THE  PROBABILITY  OF  NOT  HAVING  THE  SECOND  (DAYTIME)  LEG. 

WTC(n)  '  CFPV  •  (  1.  -  CFPS  ) 

INCLUDE  TWO-LEG  CFLOS 
II  =  II  ♦  1 

AT  THIS  POINT,  II  WILL  NORMALLY  BE  161  . 

UPROCl(II)  '  UPRADC(lI-l) 

UPRADC(II)  =  UPRAOCdl-l)  RAD(2)  •  TTSPV(L) 

WTC(n)  •  CFPS  *  CFPV 

*•*  GOT  HERE  FOR  ClOUDS,  DAY  *♦♦**••****•*«•«•••*•***»*•**♦•♦****• 

55  CONTINUE 

GOT  HERE  FOR  aOUDS,  DAY  OR  NIGHT  •»•*•*•***•••**•**«*•***•♦« 
SORT  THE  RADIANCE  ARRAY  UPRADC  IN  INCREASING  OP.DER  AND  CARRY 
ALONG  THE  ARRAYS  UPRDCl  AND  WTC.  BEFORE  SORTING,  AUGMENT  THE 
THREE  ARRAYS  WITH  THE  MEMBERS  UPRADCdl*!)  «  0.0.  UPRDCl  (II+l) 
•  0.0,  AND  WTCdI+1)  •  0.0,  RESPFC''’/ELY.  DOING  THIS  ALLOWS 
SUBROUTINE  LINEAR  TO  INTERPOLATE  WITHIN  ITS  GIVEN  ARRAY  IF  THE 
WEIGHT  OF  THE  NORMALLY  SMALLEST  MEMBER  EXCEEDS  THE  SMALLEST 
0.10)  FOR  WHICH  AN  INTEGRAL -DISTRIBUTION  VALUE 


II 


FRACTILE  (NOW 
IS  REQUESTED. 
11  ♦  1 

AT  THIS  POINT 
DAY. 

UPRADCdl)  -  0.0 
WTCdl)  •  0.0 
UPRDCldl)  •  0.0 
1F(  (  IKM  .GE.  1 


II  WILL  NORMALLY  BE  161  FOR  NIGHT  AND  162  ^OR 


1055  FORMAT  (*0 


)  -AMO.  (  IXH  .LE.  3  )  )  WR1T£(6,1055) 

(UPRA0C(N),UPRDC1(N),WTC(H).N=1,11) 

BEFORE  SORTING,  WE  HAVE  (FOR  H=1.162)  THE  TRIPLETS  UP 


UPWELL 

1014 

UPWELL 

1015 

UPWELL 

1016 

UPWELL 

1017 

UPWELL 

lOlB 

UPWELL 

1019 

UPWELL 

1020 

UPWELL 

1021 

UPWELL 

1022 

UPWELL 

1023 

UPWELL 

1024 

UPWELL 

1025 

UPWELL 

1026 

UPWELL 

1027 

UPWELL 

1028 

UPWELL 

1029 

UPWELL 

1030 

UPWELL 

1031 

UPWELL 

1032 

UPWELL 

1033 

UPWELL 

1034 

UPWELL 

1035 

UPWELL 

1036 

UPWELL 

1037 

UPWELL 

1038 

UPWELL 

1039 

UPWELL 

1040 

UPWELL 

1041 

UPWELL 

1042 

UPWELL 

1043 

UPWELL 

1044 

UPWELL 

1045 

UPWELL 

1046 

UPWELL 

1047 

UPWELL 

1048 

UPWELL 

1049 

UPWELL 

1050 

UPWELL 

1051 

UPWELL 

105? 

UPWELL 

1053 

UPWELL 

1054 

UPWELL 

1055 

UPWELL 

1056 

UPWELL 

1057 

UPWELL 

1068 

UPWELL 

1059 

UPWELL 

1060 

UPWELL 

1061 

UPWELL 

1062 

UPWELL 

1063 

UPWELL 

1064 

UPWELL 

1065 

UPWELL 

1066 

UPWELL 

1067 

UPWELL 

1063 

UPWELL 

106'J 

UPWELL 

1070 
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IR  ADC  ( M ) ,  UPR  DC  1  ( M ) ,  kfTC  ( M )  ■=  *  /  ( 5X .  1 P9  E 1 2 . 4 ) ) 

UPHELL 

1071 

CALL  SORTLJ(  UPRADC,  UPRDCl,  WTC,  11.  -1  ) 

UPHELL 

1072 

'"C 

SUM  THE  HEIGHTS  AND  NORMALIZE  THE  SUM  TO  UNITY. 

UPHELL 

1073 

DO  56  M*2.II 

UPHELL 

1074 

HTC(M)  •  HTC(M)  +  IfTC(M-l) 

UPHELL 

1075 

56 

CONTINUE 

UPHELL 

1076 

HTCIIV  .  1.0/HTC(I1) 

UPHELL 

1077 

DO  57  M.1.II 

UPHELL 

1078 

HTC(M)  r  HTCIIV*HrC(M) 

UPHELL 

1079 

57 

CONTINUE 

UPHELL 

1080 

IF(  (  IKM  .GE,  1  )  .AND.  (  IKM  .LE.  3  )  )  HRITE(6.1056) 

UPHELL 

1081 

S  (UPRADC(r;),UPRDCl(N).HTC(N),N=l,II) 

UPHELL 

1082 

1056 

FORMAT  (•0  AFTER  SORTING  AND  SUMMING  WEIGHTS.  HE  HAVE  (FOR  M=l.l 

UPHELL 

1083 

*62)  THE  TRIPLETS  U?RA0C(H)  ,UPR0C1(M),SIIMWTC(M)=V(5X,1P9E12.4)) 

UPHELL 

1084 

CC 

INTERPOLATE  TO  OBTAIN  THE  INDICATED  PERCENTILES. 

UPHELL 

1085 

CC 

RESULT  IS  STORED  IN  RXXX{K.L). 

UPHELL 

1086 

CALL  LINEAR  (  0. 10.R010(K.L ),HTC .UPRADC. II  ) 

UPHELL 

1087 

CALL  LINEAR  {  0. 25.R025(K .L) .'.nC.UPRAOC.  11  ) 

UPHELL 

1088 

CALL  LINEAR  (  0,50.R050(K.L},HTC.UPRAOC.  II  ) 

UPHELL 

1089 

CALL  LINEAR  (  0. 90.R090[K.L) .MTC.UPRAOC. 11  ) 

UPHELL 

1090 

RIOO(K.L)  •  UPRAOCdl) 

UPHELL 

1091 

CC 

STATEMENT  58  IS  FOR  WAVENUMBER  LOOP  ON  INDEX  L 

UPHELL 

1092 

58 

CONTINUE 

UPHELL 

1093 

CC 

STATEMENT  60  IS  FOR  AZIWTH  LOOP  ON  INDEX  K 

UPHELL 

1094 

60 

CONTINUE 

UPHELL 

1095 

CCC 

UPHELL 

1096 

CCC 

WRITE  OUT  UPRAD(K.L)  FOR  CURRENT  VALUE  OF  1 1  AND  JJ. 

UPHELL 

1097 

CCC 

miTE  OUT  RXXX(K,L)  FOR  CURRENT  VALUE  OF  II  AND  JJ.  ONLY 

UPHELL 

1098 

CCC 

IF  CLOFGl  -  1.0  . 

UPHELL 

1099 

WRITE(8)  ((UPRA0{K.L).X=1.NAZ1).L-1.NHAVEJ) 

UPHELL 

1100 

IF(  CLOFGl  .EQ.  1.0  )  WRITE(8)  ( ( (R010(X .L ).R025(K.L).R050{X .L ) . 

UPHELL 

1101 

J  R090(K,L).R100(K.L)).  K-l.NAZI).  L-l.NHAVEJ) 

UPHELL 

110? 

CCC 

UPHELL 

1103 

CC 

COMPUTE  AVERAGES  OVER  AZIMUTH  ANGLES  K  AT  WAVENUMBERS 

UPHELL 

1104 

CC 

L'l.NWAVEJ,  NADIR  ANGLE  J.  AND  ALTITUDE  I. 

UPHELL 

1105 

FINAZ  •  1.0/FLOAT(NAZI) 

UPHELL 

1106 

DO  64  L'l.NHAVEJ 

UPHELL 

1107 

SUW  *  0.0 

UPHELL 

1108 

DO  62  IC=1,NA21 

UPHELL 

1109 

SWf<  •  SUW  ♦  UPRAD(K.L) 

UPHELL 

me 

62 

CONTINUE 

UPWELL 

nil 

UPRADAd.J.L)  ■  FINAZ*SUW 

UPHELL 

111? 

64 

CONTINUE 

UPHELL 

1113 

CCC 

UPHELL 

1114 

IF{  CLOFGl. EO. 0.0  )  GO  TO  70 

UPHELL 

1115 

IF(  IKM  .GT.  6  )  GO  TO  70 

UPHELL 

1116 

CCC 

UPHELL 

1117 

DO  68  L-I.NUAVEJ 

UPHELL 

1118 

ROlOKJ  •  0.0 

UPHELL 

1119 

R025KJ  •  0.0 

UPHELL 

1120 

flOSOKJ  -  0.0 

UPHELL 

1121 

R090KJ  -  0.0 

UPHElL 

112? 

RlOOKJ  •  0.0 

UPHELL 

1123 

DO  66  K-1,NAZI 

UPHELL 

1124 

ROlOKJ  .  ROlOKJ  ♦  ROIO(K.L) 

UPHELL 

1125 

R025KJ  -  R025KJ  ♦  R025(K.L) 

UPHELL 

1126 

R05«J  ■  R050KJ  ♦  R050(K.L) 

UPHELL 

1127 
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RtSOKJ  *  RL'MKJ  ♦  R090(IC,L) 

UPWELL 

1128 

RIOOCJ  ■  RIOOKJ  +  RIOO(IC.L) 

UPHELL 

1129 

66  CORTIfiUE 

UPHELL 

1130 

CC  IKM  "  inDEX  FOR  altitudes  equal  to  or  greater  than  12. l  km 

UPHELL 

1131 

CC  >.MEM  CLOUDS  ARE  maUOED. 

UPHELL 

1132 

RUlOAlIKM.J.L)  •  FINAZ*R010KJ 

UPHELL 

1133 

R025A(IKH,J,L)  -  FINAZ*R025KJ 

UPHELL 

1134 

R050A(IKM,J,L)  •  FINAZ*ROSOKJ 

UPHELL 

1135 

R090A(IKH.J,L)  -  FINAZ*RC»OKJ 

UPHEU 

1136 

RIOOA(IKM.J.L)  «  FINAZ«filO<KJ 

UPHELL 

1137 

68  CONTINUE 

UPHELL 

1138 

CC  STATEMENT  70  IS  FOR  NADIR  LOOP  ON  INOEX  J 

UPHELL 

1139 

70  COMTINlff 

U.’HELL 

1140 

CCC 

UPHELL 

1141 

CC  COMPUTE  AVERAGES  OVER  NADIR  ANGLES  J  AT  HAVENWCERS 

UPHELL 

1142 

CC  L-l.NWAVEJ  AND  ALTITUDE  I. 

UPHELL 

1143 

FINAD  •  1.0/FLDAT(NNADIR) 

UPWEL.. 

1144 

DO  74  L-1,NWAVEJ 

UPHELL 

1145 

sum  «  0.0 

UPHELL 

1146 

n  72  J-1,NNADIR 

UPHELL 

llA’ 

SUMM  •  sum  +  UPRADA(I,0,L) 

UPHELL 

1148 

72  CONTINUE 

UPHELL 

1149 

UPRAON(I,L,JBAND)  •  FIMAD*SUm 

UPHELL 

1150 

74  continue 

UPHELL 

1151 

CCC 

UPHELL 

1152 

IF(  CLDFGl.EO.O.O  )  GO  TO  80 

UPHELL 

1153 

IF(  IKM  .GT.  6  )  GO  TO  80 

UPHELL 

1154 

CCC 

UPHELL 

1155 

DO  78  L-l.NMAVEJ 

UPHELL 

1156 

WCVKJ  •  0.0 

UPHELL 

1157 

ROIOKJ  •  D.O 

UPHELL 

1158 

R02SKJ  •  0.0 

UPHELL 

1159 

ROSDKJ  •  0.0 

UPHELL 

1160 

R090KJ  •  0.0 

UPHELL 

1161 

RIOOKJ  •  0.0 

UPHELL 

1162 

DO  76  >1,NNADIR 

UPHELL 

1163 

ARCVKJ  -  ARCVKJ  ♦  AfiCVA(IKM, J.L) 

UPHELL 

1164 

ROIOKJ  •  ROIOKJ  ♦  R010A(IKM,J,L) 

UPHELL 

1165 

R025KJ  •  R02SKJ  ♦  R025A(IKM,J.L) 

UPHELL 

1166 

R050KJ  *  ROSDKJ  *  R050A(1KM, J.L) 

UPHELL 

1167 

R090KJ  •  R090KJ  ♦  R090A(IKM, J.L) 

UPHELL 

1168 

RIOOKJ  -  RIOOKJ  *  R100A(IKM,J,L) 

UPHELL 

1169 

76  CONTINUE 

UPHELL 

1170 

ARCVNdKM.L)  •  FINAD*ARCVKJ 

UPHELL 

1171 

ROlONdKM.L)  •  FINA0»R010KJ 

UPHELL 

1172 

R025NdKM,L)  •  FINA0*R025KJ 

UPHELL 

1173 

ROSONdKM.L)  •  FINAO*RO50Kj 

UPHELL 

1174 

R090N(IKM,L)  -  FINA0^090KJ 

UPHELL 

1175 

RlOONdKM.L)  ■  FINAD»R100KJ 

UPHELL 

1176 

CCC 

UPHELL 

1177 

CCC  THE  GRC  VERSION  INSERTS  THE  FOLLOWING  RE-SETTING  OF 

UPRAONd, 

UPHELL 

1178 

CCC  L.JBANO)  FOR  ALTITUDES  .GE.  12  KM  AND  IF  aOUOS  ARE 

INCLUDED. 

UPHELL 

1179 

CCC  URRA0N{I.L,0BAHD)  •  ROSONdKM.L)  ♦  ARCVNdKM, 

,L) 

UPHELL 

1180 

CCC 

UPHELL 

1181 

78  CONTINUE 

UPHELL 

1182 

CC  STATEWNT  80  IS  FOR  ALTITUDE  LOOP  ON  INOEX  I 

UPHELL 

1183 

BO  CONTINUE 

UPHELL 

1184 

RETIRN 

UPHELL 

1185 

END 

UPHELL 

1186 
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SUBROUTINE  VLIN  (  X,  A.  Y.  B.  2  ) 

VLIN 

2 

c 

VLIN 

3 

c 

*VLIN*  FORMS  THE  LINEAR  COMBINATION  OF  lUO  VECTORS. 

VLIN 

4 

CLJ 

SUBROUTINE  VLiN  RETURNS  X{1-’)  -  A*Y(l-3)  +  B*Z(l-3). 

VLIN 

5 

c 

VLIN 

6 

DIMENSION  X(3),  Vf3I,  2(3) 

VLIN 

7 

X(l)  -  A  *  Y(li  *  5  ♦  2(1) 

VLIN 

6 

X(2)  *  A  *  Y(2)  +  B  *  2(2) 

VLIN 

9 

X(3)  *  A  •  Y(3)  B  *  2(3) 

VLIN 

10 

RETURN 

VLIN 

11 

END 

VLIN 

12 

C* 

XMIT 

XMIT 

2 

SUBROUTINE  XMIT  (  LX,  X,  Y  ) 

XMIT 

3 

C 

XMIT 

4 

C 

*XMIT*  COPIES  A  COPE  BLOCK  TO  ANOTHER  LOCATION. 

XMIT 

5 

C 

XMIT 

6 

CLJ 

A  GE  TEMPO  VERSION  OF  THE  SRC  ROUTINE  XMIT  WRIHEN  IN  COMPASS 

XMIT 

7 

CLJ 

LANGUAGE. 

XMIT 

8 

CLJ 

XMIT 

9 

CLJ 

INPUT  PARAMETERS 

XMIT 

10 

CLJ 

ARGUMENT  LIST 

XMIT 

n 

CLJ 

LX  •  LENGTH  OF  ARRAY  X 

XMIT 

12 

CLJ 

X  •  THE  ARRAY  OR  CONSTANT  TO  BE  COPIED  INTO  ARRAY  Y. 

XMIT 

13 

CLJ 

OUTPUT  PARAMETER 

XMIT 

14 

CLJ 

ARGUMENT  LIST 

XMIT 

16 

CLJ 

Y  •  a;.  "RRAY,  copied  from  array  X  IF  LX.GT.O.  AND  SET 

XMIT 

16 

CLJ 

TO  A  CONSTANT  X(l)  IE  LX.L7.0  , 

XMIT 

17 

CLJ 

A  RETURN  OCCURS  IF  LX.EO.O  OR  IF  THE  ADDRESS  OF  X 

XMIT 

18 

CLJ 

EQUALS  THE  ADDRESS  OF  Y. 

XMIT 

19 

DIMENSION  X(l),  Y(l) 

XMIT 

20 

IF  (  LX  .LE.  0  i  GO  TO  6 

XMIT 

21 

CLJ 

LOCF.  A  FORTRAN  INTRINSIC  (INTEGER)  FUNCTION,  OBTAINS  THE 

XMIT 

2? 

CLJ 

AOORESS  OF  A  VARIABLE,  ARRAY  ELEMENT,  OR  ENTRY  POINT  OF 

XMIT 

23 

CLJ 

EXTERNAL  SUBPROGRAM. 

XMIT 

24 

IF  (  LOCF(  X  )  -  LOCF(  Y  )  )  3.  5,  1 

XMIT 

25 

1 

00  2  1-1, LX 

XMIT 

26 

2 

T(I)  =  X(I) 

XMIT 

27 

GO  TO  5 

XMIT 

28 

CLJ 

THIS  BRANCH  ALLOWS  SHIFTING  THE  FIRST  LX  MEMBERS  OF  ARRAY  X  TO 

XMIT 

29 

CLJ 

START  AT  SOME  MEMBER  H.-.ICH  LIES  WITHIN  THE  FIRST  LX  MEMBERS. 

XMIT 

30 

3 

K  -  LX 

XMIT 

31 

DO  4  1*1, LX 

XMIT 

3? 

T(K1  •  X(K) 

XMIl 

33 

4 

k,  -  K  -  1 

XMIT 

34 

5 

RETURN 

XMIT 

35 

6 

IF  (  LX  .EQ.  0  )  RETURN 

XMIT 

36 

LXX  -  -LX 

XMIT 

37 

DO  7  I-1,LXX 

XMIT 

38 

7 

T(I)  -  X(l) 

XMIT 

39 

RETURN 

XMIT 

40 

END 

XMIT 

41 
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Ballistic  Missile  Office 
Air  Force  Syst&.is  Cuntnand 
ATIN;  MNX 
ATTN:  MNRTE 
ATTN:  MNRC 

Deputy  Chief  of  S;aff 
Research,  Devel Jpiiient.  &  Acq 
Department  of  the  Air  Force 
ATTN;  AFROS 

Headquarters  Space  Diyisio'i 
Air  Force  Systems  Comand 

ATTN:  SKA,  M.  Clavin 
ATTN;  SM 

Headquarters  Space  Division 
Air  Force  Systems  Comiiand 
ATTN;  SZJ,  ?.  Kelley 

Home  Air  Development  Center 
Air  Force  Systems  Coimand 
ATTN;  OCS,  V.  Coyne 
AttN;  TSLD 
AiTN;  OCSA,  J.  Simons 

Strategic  Air  Coimiand 
Department  of  the  Air  Force 
ATTN:  NRT 

ATTN:  XFFS,  B.  Stephan 

department  OF  ENERGY 

Oeoartnent  of  Energy 
ATTN;  OHA 

OTHER  GOVERNMENT  AGENCIES 

Department  of  Conrierce 
National  Oceanic  8  Atmospheric  Admin 
ATTN:  F.  Fehsenfeld 

Institute  for  Telecommunications  Sciences 
National  Telecommunications  &  Infor  Adiidn 
ATTN:  G,  Falcon 
ATTN:  W.  Utlaut 

DEPARTMENT  OF  DEFENSE  CONTRACTORS 

Aerojet  Electro- Systems  Co 
AITN;  J.  Grahar 

Aerospace  Corp 


ATTN: 

N. 

Stockwell 

ATTN; 

J. 

Straus 

ATTN: 

N. 

Cohen 

ATTN: 

I 

Garf . nkel 

ATTN; 

V. 

Josep.5:kOn 

ATTN. 

J. 

Reinheimer 

Berkeley  Research  Associates,  Inc 
ATTN;  J.  Workman 

ESL,  Inc 

ATTN;  J.  Marshall 

General  Electric  Co 

ATTN:  H.  Boi  tner 


DEPARTMENT  OF  DEFENSE  CONTRACTORS  (Continued) 

General  Research  Corp 

ATTN:  J.  Garbarino 
ATTN;  J.  Ise.  Jr 

Jamieson  Science  &  Engineering 
ATTN:  J.  Jamieson 

Kaman  Sciences  Corp 

ATTN:  N.  Beauchamp 
ATTN;  P,  Tracy 
ATTN:  0.  Perio 

Kaman  Tempo 

AITN:  J.  Jordano 
ATTN:  K.  Schwartzman 
ATTN:  DAS  I AC 
ATTN:  T.  Stephens 
ATTN:  W.  Knapp 

Lockheed  Missiles  &  Space  Co,  Inc 
ATTN:  D.  Divis 

Lockheed  Missiles  8  Space  Co,  Inc 
AITH:  M.  Halt 

M.  1 . T.  Lincoln  Lab 

ATTN;  D.  Towle 

McDonnell  Douglas  Corp 
ATTN;  R.  Halprin 
ATTN:  H.  Spitzer 

Mission  Research  Cnrp 
ATTN:  M.  Scheibe 
e.TTN:  R.  Bogusch 
ATTN;  R.  Hendrick 
ATTN:  F,  Fajen 
ATTN:  R.  Kilb 
ATTN:  D.  Archer 
ATTN:  D.  Sappenfield 

Nichols  Research  Corp,  Inc 
ATtN:  N.  3yrn 

Pacific-Sierra  Research  Corp 
ATTN:  1;.  Brode 

Physical  Research,  Inc 

ATTN:  R.  Deliberis 

University  of  the  Commonwealth  Pi  .roh 
ATTN;  F.  Kaufman 

R  8  D  Associates 

ATTN:  R.  Turco 
ATTN;  B,  Gabbard 
ATTN:  F.  Gilmore 
ATTN:  R.  Lelevier 
ATTN:  P.  Haas 

R  8  D  Associates 

ATTN:  B.  Yoon 

Rand  Corp 

AITN;  C.  Crain 

Science  Applications,  Inc 
ATTN:  W,  Meades 
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ULPARTWENT  OK  ULFLNSE  CONTRACTORS  (Continued) 


Science  Applications,  Inc 

ATTN: 

0.  Hamlin 

4  cy  ATTN: 

M.  Schoonover 

Teledyne  Brown  Engineering 

ATTN: 

G.  Harney 

ATTN: 

I,  Ford 

ATTN: 

Technical  Library 

ATTN: 

J.  Cato 

uEPARTMENT  OF  DEFENSE  CONTRACTORS  (Continjed) 

SRI  International 

ATTN:  W.  Jaye 
ATTN:  W.  Chesnut 

Visidyne,  Inc 

ATTN:  J.  Carpenter 
ATTN;  H.  Siiith 
ATTN:  C.  Humphrey 
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